Delphi-PRAXiS - Delphi skalieren des Zeichenbereichs + Scrollbars bei PAINT

Hallo.
Ich bin gerade dabei das Windows Paint nachzuprogrammieren und bin eigentlich auch schon recht weit. Nur wollte ich es hinbekommen, dass wenn das Formular kleiner als das bitmap wird, ich mit 2 scrollbars die größe des Bitmaps ändern kann. Dies hat den Hintergrund die schrecklichen scrollbars des Formulars zu umgehen. Nun tritt aber das Problem auf, dass mein ganzes Programm anfängt zu flimmern und ab und zu die Formularscrollbars doch flimmernd entstehen. ich weiß nicht wo der fehler liegt, da die Paintbox die größe ordungsgemäß ändert. ich dachte ich häng einfach mal den code an.der fehler müsste in der Formular ONResize methode liegen. Vielleicht weiß ja jemand was da bei mir falsch gelaufen ist.