HI!
Nimm dir ein Hilfsbitmap, zeichne alles darauf und löse nach jeder Neuzeichnung das OnPaintEreignis deiner PaintBox oder Formulars aus, das so aussieht:
Code:
BitBlt(PB.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, bmp.Canvas.Handle,
0, 0, SrcCopy);
"PB" in "PB.Canvas.Handle" musst du durch deinen Paintboxnamen oder was auch immer ersetzen.