Bewegendes Image faden

[Spectre]

über was ihr da diskuttiert sind bömische dörfer für mich haha.

der code wie sich das bild im hintergrund bewegt und durchgehend nach links läuft wäre in etwa so in delphix..

Code:

procedure TScrollBackground.DoMove(MoveCount: Integer);   //Geschwindigkeit und Richtung des scrolling BG
begin
  inherited DoMove(MoveCount);
      x := x - MoveCount * (500 / 1000) * FSpeed;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
with TScrollBackground.Create(DXSpriteEngine1.Engine) do    //Scrolling BG's Bild, Größe und Speed wird initialisiert
  begin
    SetMapSize(1024,768);
    Image := DXImageList1.Items.Find('main');
    Y := 0;
    Z := 0;
    FSpeed := 1.0;
    Tile := true;
  end;
end;

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);    //Sorgt dafür das das Bild auch gezeichnet wird
begin
  if not DXDraw1.CanDraw then
    exit;

  DXSpriteEngine1.Move(1);
  DXDraw1.Surface.Fill(0);
  DXSpriteEngine1.Draw;
  DXDraw1.Flip;
end;

der funktioniert auch (mit delphix). die frage ist wie ich das bild entsprechend wegfade und resette ^^