function NumLockOn:boolean; //Checks the status of NumLock
var KeyState:TKeyboardState;
begin
     GetKeyboardState(KeyState);
     Result:=(KeyState[VK_NUMLOCK] and 1) = 1;
end;

function CapsLockOn:boolean; //Checks the status of CapsLock
var KeyState:TKeyboardState;
begin
     GetKeyboardState(KeyState);
     Result:=(KeyState[VK_CAPITAL] and 1) = 1;
end;

function ScrollLockOn:boolean; //Checks the status of ScrollLock
var KeyState:TKeyboardState;
begin
     GetKeyboardState(KeyState);
     Result:=(KeyState[VK_SCROLL] and 1) = 1;
end;