Du musst schieben
Aber Popov hat für Deinen Anwendungsfall recht, Du solltest gegf. statt von TGraphicControl/TpaintBox so ableiten ....
Delphi-Quellcode:
TMyPaintControl=Class(Controls.TCustomControl)
public
Property Canvas;
Procedure Paint;override;
End;
es sei denn Du benötigst Transparenzen, dann wie gehabt