Figur und Button

[Coxy]

also keypreview auf true zu stellen hat leider nichts bewirkt

und @alfold
meinst du das hier?

Delphi-Quellcode:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

if key = vk_up then hoch:= 0;
if key = vk_down then runter:=0;
if key = vk_left then links :=0;
if key = vk_right then rechts :=0;
end;

habt ihr vielleicht sonst noch Vorschläge?