Also, hier noch die Antwort zu meiner eigenen Frage, nur für's Archiv, fall jemand über den Thread stolpert:
so sieht jetzt das OnPaint der PaintBox aus:
Delphi-Quellcode:
procedure Tfrm_main.pbx_mainPaint(Sender: TObject);
begin
// Größe der Bitmap setzen
myDrawClass.SetSize(fDestinationPaintBox.Width,fDestinationPaintBox.Height);
//zeichnen
myDrawClass.Draw;
// Bitmap nach Paintbox kopieren
BitBlt(fDestinationPaintBox.Canvas.Handle, 0, 0, myDrawClass.Destination.Width, myDrawClass.Destination.Height, myDrawClass.Destination.Canvas.Handle, 0, 0, SRCCOPY);
end;
SetSize ruft seinerseits nur das SetSize der TBitmap auf.