Mit einen Timer alle paar Millisekunden das Bild nach links und unten verschieben. DoubleBuffered vom Form auf TRUE stellen!!!
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(img.left);
inc(img.top);
end;
Den optimalen Intervall für den Timer musst du durch testen selbst rausfinden.