TImage Paint To mehrmals aufrufen

[cltom]

*aufwärm* das Problem ist noch ungelöst und ich täte Euch um Hilfe bitten:

Hier ein kleines Testprojekt, dass das Problem zeigt:

Delphi-Quellcode:

  panel1.Width := 200 + random(100);
  panel1.height := 200 + random(100);
  image1.Width := panel1.Width;
  image1.Height := panel1.Height;
  image1.Invalidate;
  panel1.PaintTo(image1.Canvas,0,0);

Falls bequemer habe ich das Projekt angehängt.

Was nun passiert:
Beim ersten mal Aufrufen wird das Panel korrekt kopiert, bei den Folgenden Versuchen stimmt width und height nicht mehr, im image wird das Panel abgeschnitten ungeachtet der Übergabe von Height und Width.

Was muss man ändern, damit das Panel immer in der richtigen Größe rüberkopiert wird?

Danke!