Komponente mit PaintBox zeichnet sich immer neu

[Hobbycoder]

Hi,

ich entwickele gerade eine Komponente. Diese basiert auf einem TCustomPanel auf dem eine TScrollbox liegt, und in der wiederum eine TPaintbox gezeichnet werden soll.
Ziel ist es die TScrollBox etwas kleiner zu halten, als das Panel ist (es kommt noch etwas Informationen daneben), die TPaintBox aber weit größer sein kann, und dementsprechend mit der Scrollbox alle Bereiche angescrollt werden können.
Die ersten einfachen Zeichnungsfunktionen sind fertig. Gezeichnet wird im TPaintBox.Paint.

Wenn ich nun die Komponente auf der Form ablege, wird die Paintbox ständig neu gezeichnet. Viel mehr mache ich aber noch gar nicht, außer dass ich bei den Properties der Komponente und im Resize ein Invalidate drin habe.

Woran kann das liegen, bzw. wie muss ich es mache, damit die PaintBox.Paint nur aufgerufen wird, wenn auch wirklich neu gezeichnet werden muss.