KeyPress auf Formular?

[Killi138]

In KeyDOWN!

Code:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
        Showmessage(IntToStr(Key));
end;

am besten du machst hier ne Boolean-variable rein, also z.Bsp. rechts:= True und in KeyUP rechts:= False, sonst kannst du immer nur eine Pfeiltaste drücken, d.h. deine Figur kann sich nicht recht bewegen!
Die Bewegungen machst du in einem Timer, also

Code:

if rechts = True then
begin
  BEWEGUNG NACH RECHTS
end;

if hoch = True then
begin
  BEWEGUNG HOCH
end

usw.!