1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure draw;
begin
image1.canvas.brush.color := clBtnFace;
image1.canvas.Pen.color := clBtnFace;

drawPlanets;

drawKoosy;

movePlanets;

image1.canvas.brush.color := clYellow;
image1.canvas.Pen.color := clblack;

drawPlanets;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var
 bmp: TBitMap;
begin
 bmp := TBitMap.create;
 bmp.width := [die Breite];
 bmp.height := [die Höhe];
//Jetzt deine Proceduren
DrawKoSy//, und wie sie alle heißen
//Eben nur, dass sie anstatt auf die Paintbox auf das Bmp "malen"
//Beispiel:
//aus "Paintbox.canvas.Rectangle(..)" wird "bmp.canvas.Rectangle(..)"

//Jetzt in die Paintbox malen
 PaintBox.canvas.copyrect(Rect(0,0,bmp.width,bmp.height), bmp.canvas,Rect(0,0,bmp.width,bmp.height));

 bmp.free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

var
pos1 : Array[1..700] of TPoint;
pos2 : Array[1..700] of TPoint;
pos3 : Array[1..700] of TPoint;
i : integer;

....

i := 1;

procedure TForm2.Timer1Timer(Sender: TObject);
var
z : integer;
begin
  pos1[ i ].x :=M1PosX;
  pos1[ i ].y := M1PosY;
  pos2[ i ].x := M2PosX;
  pos2[ i ].y := M2PosY;
  pos3[ i ].x := M3PosX;
  pos3[ i ].y := M3PosY;

  inc(i);
  if i > 700 then i := 1;
  with Bit.Canvas do begin
          DrawCoordSys2;
          for z := 1 to 700 do begin
              Pixels[pos1[z].x, pos1[z].Y] := clyellow;
              Pixels[pos2[z].x, pos2[z].Y] := clblue;
              Pixels[pos3[z].x, pos3[z].Y] := clred;
              end;
          brush.Color := clyellow;
          ellipse(M1PosX+11,M1PosY+11,M1PosX-10,M1PosY-10);
          ...... Das gleiche für die anderen Planeten
           
    form1.PaintBox1.Canvas.Draw(0, 0, Bit);
 end;