DelphiX: Sternenhimmel

[CalganX]

Hi,
ich habe folgendes Problem: ich möchte, dass sich ein Sternenhimmel immer weiter nach links bewegt. Dieser Himmel ist eine einfache Grafik in einer DXImageList. Ich habe das ganze mal versucht, aber jämmerlich gescheitert (Division by zero; was auch klar ist). Folgendes in einem DXTimer:

Delphi-Quellcode:

var i: integer;
begin
  dec(counter);
  DXDraw1.Surface.Fill(0);
  for i:=1 to DXDraw1.SurfaceWidth div (128 + counter) do begin
    DXImageList1.Items[1].Draw(DXDraw1.Surface, i*(128 + counter), 0, 0);
  end;
  DrawShip(oldX, oldY);
end;

Nun: das kann nicht funktionieren. Hat denn irgendjemand eine Idee, wie man das machen könnte?

Chris

PS: Für den Anfang bitte erstmal nur eine horizontale Reihe der Bilder...