dynamische Image erzeugung

[Isaev]

Wie kann man Image zu zwingen, den Umfang beim automatischen Dehnen zu übernehmen?
D.h. ich kann Width und Height nicht eingeben, wiel die unbekannt sind...
Und wenn ich die Größe nicht eingebe, sehe ich nur Teilimage davon.
Beispiel:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
Var
  Img2:TImage;
  X,Y,X1,Y1,N:Integer;
begin
  Img2:=TImage.Create(Panel1);
  Img2.Parent:=Panel1;
  Img2.Margins.SetBounds(8,15,8,15);
  Img2.AlignWithMargins:=True;
  Img2.Align:=alClient;

  For N:=0 To 200 Do
    Begin
      X:=Random(Img2.Width);
      Y:=Random(Img2.Height);
      X1:=Random(Img2.Width);
      Y1:=Random(Img2.Height);
      Img2.Canvas.MoveTo(X,Y);
      Img2.Canvas.LineTo(X1,Y1);
    End;
end;