TForm: Höhe dynamisch setzen anhand eines TLabel Textes

[user0815]

Hallo,

bei dem nachfolgenden Code passt der const txt nicht so in den Label das er ganz angezeigt wird.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  txt = 'Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata';
var
  p : TPanel;
  l : TLabel;
begin
  p := TPanel.Create(Self);
  p.Parent := Self;
  p.Top := 0;
  p.Left := 0;
  p.Width := 200;
  p.Height := 50;
  p.Anchors := [akLeft, akTop, akRight, akBottom];
  p.BevelOuter := bvRaised;

  l := TLabel.Create(Self);
  l.Parent := p;
  l.AutoSize := False;
  l.WordWrap := True;
  l.Align := alClient;
  l.Caption := txt;
end;

Gibt es eine Möglichkeit zu berechnen wie hoch die Form sein müsste damit der Text ganz angezeigt wird ?