Labels vertikal dynamisch einordnen?

[Popov]

Eventuell das hier. Ist alles mit einem Label lösbar:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s1, s2, s3, s4, s5, s6: String;  //usw. bis s14
  i: Integer;
  FormStr: String;
begin
  Label1.WordWrap := True;
  Label1.Width := 500;

  s1 := 'Titel: Mark Mascher';
  s2 := '';
  s3 := 'Text: Hier kommt ein langer,';
  s4 := 'langer Text... usw.';
  s5 := '';
  s6 := 'Preis: 14,00€';

  FormStr := '';
  for i := 1 to 6 do  FormStr := FormStr + '%s ' + ^j; //To-Wert anpassen an Anzahl Strings

  Label1.Caption := Format(FormStr, [s1, s2, s3, s4, s5, s6]);
end;