Problem beim Erstellen eines Labels während der Laufzeit

[Hazardos]

Ich habe es jetzt umgeschrieben, da wohl keiner dieses Problem für diese Methode Lösen konnte....
Meine Lösung sieht so aus:

Delphi-Quellcode:

 Nachrichten := TNachrichten.Create(self); // neue zeile
with Nachrichten do                       // war: with TNachrichten.Create(self) do
  begin
    for i := 0 to Eingang.Items.Count-1 do
      begin
        with TLabel.create(Nachrichten) do
          begin
            Parent := Nachrichten;
            AutoSize := false;
            Height := 13;
            Width := 93;
            Transparent := false;
            Color := $00000062;
            Font.Color := clwhite;
            Left := 13;
            Top := i * 15 + 35;
            Name := 'Nachricht_Eingang_'+IntToStr(i);
            Caption := F_Main.qrmain.fieldbyname('headline').AsString;
            Tag := i;
          end;
      end;
  end;