[cherepets]

ну тип так как-то

for i:=0 to getwidth do begin
drawimage(img,i,0);
repaint; delay(10); end;