Anhalten bei Image-Bewegung verhindern

[Zacherl]

So geht es auch einigermaßen. Aber ich tendiere trozdem zu Delphix

Delphi-Quellcode:

var
  Form1: TForm1;
  move: boolean;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if move = true then image1.left := image1.left+1;
application.ProcessMessages;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if ord(key) = vk_Return then begin
if move = false then
move := true
else
move := false;
end;
end;

Hier ein DelphiX Sample: