[Reks888]

Program graph;
var img: image;
Begin
img:=LoadImage('/image.png');
for i:=0 to getwidth do begin
drawimage(img,i,0);
repaint; delay(10); end;
End.

Если надо чтобы вверх и вниз O_o. Не знаком сильно с мидлет паскалем так что тапками не кидайтесь если что не так.

Program graph;
var img: image;
Begin
Randomize;
img:=LoadImage('/image.png');
for i:=0 to getwidth do begin
i:=i-Random(2);
If i<0 Then i:=0;//чисто дебаг
drawimage(img,i,0);
repaint; delay(10); end;
End.