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.
Woran kann das liegen???