Du meinst Delphi, nicht war?

Also leg ne Globale Variable
Buffer: TBitmap;
an. Im OnCreate des Forms:
Code: 
Buffer := TBitmap.Create;
Buffer.width := PaintBox1.Width;
Buffer.height := PaintBox1.Height;
Dann im OnPaint der PaintBox:
Code: 
PaintBox1.Canvas.Draw(0,0,Buffer);
Und jetzt halt alle Befehle statt auf PAintBox auf Buffer ausführen, also:
PaintBox1.Canvas.Pixel[5,5] := clWhite;
wird zu
Buffer.Canvas[...]
usw.