How to find out if CAPS LOCK is on? b - Delphi

function IsCapsLockOn : Boolean;
begin
  Result := 0 <> (GetKeyState(VK_CAPITAL) and $01);
end;