Txt-Datei Zeilenweise auslesen funktioniert nicht

[neus]

Hallo,

ich möchte eine Datei Zeilenweise auslesen und die Ergebnisse in eine Listbox schreiben:
Mach ich das ohne die Schleife gehts (aber halt nur für den ersten Eintrag).
Da ich neu in Delphi bin und gern an Beispielen lerne wäre ich für eine Korrektur dankbar.

Danke !!!

Delphi-Quellcode:

var
  Form1: TForm1;
  Datei: TextFile;
  namedat: String;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
         AssignFile(Datei,'c:\text.txt');
         Reset(Datei);
         while not eof (Datei) do
         begin
                ReadLn(Datei,namedat);
                ListBox1.Items.Add(namedat + ' nicht erreichbar');
                CloseFile(Datei);
         end;
end;