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.!