Nur 1. Zeile laden

[Martin.Ghosts]

Hallo,

Bei mir tritt folgendes Problem auf. Ich habe eine unbekannte Anzahl an txtdateien, die in eine ComboBox geladen werden.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);

var LStrList: TStringlist;
    LPfad: String;
    LSearchRec: TSearchRec;

begin
  begin
    LPfad:='Name\';
    Combobox2.Items.Clear;
    LStrList:=TStringlist.Create;
    if FindFirst(LPfad +'*.txt', faAnyFile, LSearchRec) = 0 then
      begin
        repeat
          if LSearchRec.Attr and faDirectory = 0 then
            begin
              LStrList.LoadFromFile(LPfad + LSearchRec.Name);
              Combobox2.Items.Add(LStrList.Text);
            end;
        until FindNext(LSearchRec) <> 0;
        FindClose(LSearchRec);
      end;
    LStrList.Free;
  end;
end;

Das funktioniert auch soweit. Wie kann ich es schaffen, dass nur die erste Zeile geladen wird? Bei mir werden immer noch zwei senkrechte Balken angezeigt, ich vermute mal dass das ein Zeilenumbruch ist.

Danke schon mal, Martin.Ghosts