1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TFormListe.btnShowClick(Sender: TObject);
var zeile, spalte :integer;
begin
     zeile:= 1;
     spalte := 0;
     dateiOffen := dateiOeffnen(persdat);
     while not Eof(personendatei) do begin  // <-- Fehler
                person:= datensatzLesen;
                if sgPerson.RowCount < (zeile+2)
                   then sgPerson.RowCount := sgPerson.Rowcount + 1;
                with person do
                begin
                     sgPerson.cells[spalte, zeile]:= IntToStr(persNr);
                     sgPerson.cells[spalte+1, zeile]:= vorname;
                     sgPerson.cells[spalte+2, zeile]:= name;
                     sgPerson.cells[spalte+3, zeile]:= DateToStr(gebDatum);
                end; //with
 
     inc(zeile);
     end; //while
     dateiGeschlossen := dateiSchliessen;
 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

AssignFile (personendatei, 'Dateiename.txt');
Reset (personendatei);

while not Eof (personendatei) do
  begin
    {...}
  end;
  
CloseFile (personendatei);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function dateiOeffnen(dateiname:String):Boolean;
begin
     // try // = versuche
     Assign(Personendatei,dateiname);
     {$I-}
     Reset(Personendatei);
     {$I+}
     // except// = sonst
     if IOResult <> 0 then
     begin
          Rewrite(personendatei);
          result:=true;
     end;

end; // dateiOeffnen