Problem mit KeyDown

[derbenna]

Hallo ich hab folgendes Problem:

Code:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: WORD;
  Shift: TShiftState);
begin
if key = VK_A then button1.caption:='ja';
end;

Das funktioniert auch mit allen Tasten, außer wenn ich VK_down, VK_left, VK_up oder VK_right benutze. :wall:
Woran kann das liegen???

[Neutral General]

Das mit den Pfeiltasten funktioniert komischerweise nur wenn kein anderes Objekt den Focus hat.
Ansonsten einfach GetAsyncKeyState benutzen...

[Luckie]

Setz mal KeyPreview auf True.