Canvas - BringToFront gesucht

[Reinhardtinho]

Ich versuche mich gerade an einer Lösung des Problems.

Ich habe auch einen Ansatz über Canvas das ganze zu zeichnen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin

  with Canvas do
  begin
    Pen.Color   := clBlack;
    Pen.Style   := psSolid;
    Brush.Style := bsClear;
  end; (* of with *)

  for i := 1 to 5 do
  begin
    Canvas.Rectangle(50 + (i * 50), 50 + (i * 50), self.Width - (50 + (i * 50)), self.Height - (50 + (i * 50)));
    Sleep(100);
    self.Refresh;
  end; (* of for *)
end;

Bei einem leeren Formular ist das kein Problem, aber bei mir liegen viele andere Elemente wie Panels, ListBoxen, etc. auf dem Formular, so dass man gar nichts sieht.

Diese Rechtecke sollen aber auf der Oberfläche des Programms gezeichnet werden, also unabhänig davon, ob da ein weiteres Steuerelement drunterliegt oder nicht.