Probleme mit dem Verschieben auf der PaintBox

[Khabarakh]

Zuerst habe ich auch keinen Fehler gesehen, da ich aber deinen Code gut geschrieben fand (OffscreenBitmaps sind was Feines ), habe ich das Ganze nachgebaut und die Erleuchtung kam :
Das "Nachbild" sind die vier anderen Planeten, die ja noch als Position (0|0) haben .
Nimm einfach mal das, dann wirst du es sehen:

Delphi-Quellcode:

for i:=1 to 1 do begin //<- also nur den ersten Planeten zeichnen
//  Bit1.Canvas.Rectangle(Planet[i].x,Planet[i].y+15,Planet[i].y+15,Planet[i].x); <-- brauch ich noch
  ImageList1.Draw(Bit1.Canvas,Planet[i].x,Planet[i].y,0,true);
  Form1.Repaint;
end;

Noch ein paar Tipps:

• Verschieb die globalen Variablen in den private-Teil
• Gib "Bit1" auch wieder frei (am Besten im OnDestroy)
• Die GR32-Lib vereinfacht vieles, die solltest du dir ansehen.