Gezeichnetes Object (TRect) verschwindet

[blackmice]

Hallo,

Wahrscheinlich ist das Problem wieder mal bekannt, ich finde nur nicht die richtigen Suchparameter, aber ich habe mit

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   radius, r : Integer;
   rt : TRect;
   i : Integer;
   dtest : TComponent;
begin
  radius := 400;
  for r := radius downto 1 do
  begin
    rt := Rect(0,0,10, -r);
    OffsetRect(rt, 600, 425);
    Canvas.Pen.Color := ColorsBetween([clBlack, clGreen, clYellow, clred], r / radius);
    Canvas.Polygon([Point(rt.left, rt.top), Point(rt.right, rt.top), Point(rt.right, rt.Bottom), Point(rt.left, rt.bottom)]);
  end;

end;

ein Rechteck gezeichnet. Wenn das Fenster jetzt aus irgendeinem Grund in den Hintergrund geschoben wird, dann verschwindet das Rechteck. Wie kann ich das verhindern?
Gibt es vielleicht irgendein Formularelement (Image oder Paintbox oder sowas) in das ich das Rechteck zeichnen kann, damit es nicht verschwindet?

[edit=Phoenix]'Code' in Delphi-Tags geändert. Bitte nächstes mal auf die richtigen Tags achten. Mfg, Phoenix[/edit]