1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure SetCapsLock(Active: Boolean);
var
  State: SHORT;
  Scan: UINT;
begin
  Scan := MapVirtualKey(VK_CAPITAL, 0);
  State := GetKeyState(VK_CAPITAL);
  // Prüfen ob Status nicht schon korrekt ist
  if Active xor (State and $0001 = $0001) then
  begin
    // User hat den Finger drauf :o) ( also erstmal wieder loslassen )
    if State < 0 then
    keybd_event(VK_CAPITAL, Scan, KEYEVENTF_KEYUP, 0);
    // Taste drücken
    keybd_event(VK_CAPITAL, Scan, 0, 0);
    // User hat nicht den Finger drauf :o) ( also loslassen )
    if State >= 0 then
      keybd_event(VK_CAPITAL, Scan, KEYEVENTF_KEYUP, 0);
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  SetCapsLock(TRUE);
end;