Alle Controlumrisse auf Image malen

[Neutral General]

Ich würde gerne alle Controls von einer Form auf ein Image malen.
Ich mache das so, aber das Ergebnis ist irgendwie nicht zufriedenstellend
Die Controls werden in falscher Größe und Position gemalt

Das ist meine Procedure mit der es nicht richtig geht :

Delphi-Quellcode:

procedure ControlsMalen;
var i : Integer;
begin
  for i := 0 to Form1.ControlCount-1 do begin
   Form2.Image1.Canvas.Brush.Color := clblack;
   Form2.Image1.Canvas.Rectangle(Form1.Controls[i].Left,Form1.Controls[i].Top,
                                 Form1.Controls[i].Width,Form1.Controls[i].Height);
  end;
end;