Texte aus .txt auslesen aber nur eine bestimmte Zeile

[taktaky]

Hallo Corpsman

also wenn ich deinen Vorschlag nehme, dann bekomme ich immer nur die 1. Zeile !!!

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var i:Integer;
begin
         AssignFile(Datei,'test.txt');
         //AssignFile(Datei,'c:\text.txt');
         Reset(Datei);
         i := 0;
while not eof(datei) and (i = 5)do
inc(i);
         //while not eof (Datei) do
         begin
                ReadLn(Datei,namedat);
                Edit2.Text:=namedat;
                ListBox1.Items.Add(namedat);
               //ListBox1.Items.Add(namedat + ' nicht erreichbar');
                //CloseFile(Datei);
         end;
end;

Die Funktion von Scart funktioniert super !

Delphi-Quellcode:

  _____        ___   __   _   _   _    _____  
|  _  \     /   | |  \ | | | | / /  | ____| 
| | | |    / /| | |   \| | | |/ /   | |__   
| | | |   / / | | | |\   | | |\ \   |  __|  
| |_| |  / /  | | | | \  | | | \ \  | |___  
|_____/ /_/   |_| |_|  \_| |_|  \_\ |_____|

Nun möchte ich dass beim Fehler wie z.B. die Datei nicht Vorhanen, ... Keine Meldung erscheint
es soll nichts passieren und bleibt die Zeile leer.