læs Caps-Lock

Jeg vil gætte på "OnKeyPress" og så er der noget med at du på formen skal "Enable" en "Preview-ting" (husker ikke lige dens navn), men den gør at formen er i stand til "at se" tasten blive trykket.

1)
  Sæt KeyPreview til True

Og skriv dit kode i onKeyDown

Den fanger ikke tastetrykket:??

bruger denne.

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  KeyState: TKeyboardState;
begin
if (KeyState[vk_capital] = 0) then
      StatusBar1.Panels[1].Text := 'CAPS LOCK';
end;

og KeyPreview er sat til True

jeg fandt selv ud af det.

Her er løsningen:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  KeyState: TKeyboardState;
begin
  GetKeyboardState(KeyState);
  if (KeyState[vk_capital] = 0) OR (KeyState[vk_capital] = 128) then
    StatusBar1.Panels[2].text := '' else
    StatusBar1.Panels[2].text := 'CAPS LOCK';

  if  (KeyState[vk_insert] = 0) or (KeyState[vk_insert] = 128) then
    StatusBar1.Panels[1].text := 'Overskriv' else
    StatusBar1.Panels[1].text := 'Indsæt';
end;