procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=1 to 2 do
(Findcomponent('Image'+inttostr(i))as TImage).left:=
(Findcomponent('Image'+inttostr(i))as TImage).left+33;
end;
end.
Wenn ich nun auf den Button klick, dann bewegen sich Image1 und Image 2 "33" nach rechts.
Das nun in nen Timer einbauen und fertig.
