TPaintBox resizen

[ThE_-_BliZZarD]

Hallo liebe Gemeinde,

ich habe folgendes Problem:

Auf meinem Form liegt eine TPaintBox (heißt DisplayImage), die ich resizen möchte und zwar während das Form resized wird.

Ich habe also im Form (FMain) eine OnResize-Methode eingetragen, diese wird auch aufgerufen, darin machen ich folgendes:

Delphi-Quellcode:

procedure TFMain.FormResize(Sender: TObject);
begin
   DisplayImage.Width  := FMain.ClientWidth;
   DisplayImage.Height := FMain.ClientHeight;
   
   DisplayImage.Canvas.Brush.Color := clGreen;
   DisplayImage.Canvas.Brush.Style := bsSolid;
   DisplayImage.Canvas.Rectangle(0, 0, DisplayImage.Width, DisplayImage.Height);
end;

Meiner Meinung nach sollte nur das Formular immer grün erscheinen und auch während/nach einem Resize grün sein.
Dies ist nicht der Fall, es blitzt manchmal grün auf aber dann ist alles wieder grau (die Standard-bg-color von Delphi-Forms).

Was mache ich falsch, was muss ich noch hinzufügen?
Vielen Dank schon mal für eure Mühe