Bild in einem Fenster von links nach rechts bewegen

[glkgereon]

und das begin und end zwischen repeat und until is unnötig

Delphi-Quellcode:

var i:integer;
begin
  i:=image1.left;
  repeat
    i:=i+1;
    image1.left:=i
  until i=300;
end;

so wäre es schon besser