Dateieinträge in eine Listbox übertragen

[Tpercon]

Entweder du nimmst dir die erste Zeile (.Strings[0]) aus der TStringList bzw. ListBox oder öffnest die Datei mit Assfingfile:

Delphi-Quellcode:

  if FileExists(FileName) then  begin
    AssignFile(f, FileName); 
    Reset(f);
    Readln(f, s);   
    Label1.Caption := s;
    CloseFile(f);
  end;