procedure TForm1.Button1Click(Sender: TObject);
var keys: TKeyboardState;
begin
{1 = ac, 0 = kapat}
GetKeyboardState( keys );
keys[VK_NUMLOCK] := 1; {Num Lock}
keys[VK_CAPITAL] := 1; {Caps Lock}
keys[VK_SCROLL] := 1; {Scroll Lock}
SetKeyboardState( keys );
end;