Prueba este par de funciones:
Código Delphi
[-]
function IsCapsLockOn: Boolean;
begin
Result := Windows.GetKeyState(VK_CAPITAL) and $0001 = $0001;
end;
procedure ToggleCapsLock;
begin
keybd_event(VK_CAPITAL, 0, 0, 0);
keybd_event(VK_CAPITAL, 0, KEYEVENTF_KEYUP, 0);
end;
Ejemplo de uso:
Código Delphi
[-]
if IsCapsLockOn then
ToggleCapsLock;
// Saludos