Как узнать состояние клавиши CAPS LOCK.

Компилятор: Delphi

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