Es ist keine gute Idee, das Bild einer Paintbox kopieren zu wollen.
Eine Paintbox ist eine reine Einbahnstrasse: ein virtuelles Modell wird gezeichnet und angezeigt.
Ausserdem ist es überhaupt nicht nötig dies zu tun.
Man kann das virtuelle Modell ja jederzeit neu zeichnen.
Entscheidend dabei ist, dass man der Zeichne-Procedure den Canvas als Parameter übergibt:
Delphi-Quellcode:
procedure TForm1.Zeichne(canvas:TCanvas);
begin
canvas.FillRect(....);
....
end;
Ausserdem, und das die das Wichtigste bei einer Paintbox, darf man nur innerhalb
des Event
OnPaint auf die Paintbox zeichnen.
Delphi-Quellcode:
procedure TForm1.Paintbox1OnPaint(Sender:TObject);
begin
Zeichne((Sender as TPaintbox).Canvas);
end;