Bewegung

[inherited]

Sorry bin im verbesserungswahn
So ist es flexibler

Delphi-Quellcode:

private
  f : Integer;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  f := 10;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (Image1.left + f > ClientWidth - Image1.Width) or (Image1.left - f < 0) then f := -f;
  image1.Left := image1.Left + f;
end;