Bewegung

[xZise]

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 > Form1.ClientWidth - Image1.Width then
    f := -10;
  else if Image1.left - f < 0 then
    f := 10

  image1.Left := image1.Left + f;
end;

Erklärung: Das Bild wandert 1x nach links! Dann ist es wieder weg von Rand und d.h. das Bild kommt wieder nach rechts