Textdatei ohne Trennzeichen verarbeiten

[globetrotter77]

Delphi-Quellcode:

var eingabedatei: TextFile;
  eingabezeile: string;
  kundennummer: string;
begin
  assignfile(eingabedatei,'test.txt');
  reset(eingabedatei);
  while not eof(eingabedatei) do
  begin
    readln(eingabedatei);
    kundennummer:=Trim(copy(eingabezeile,1 , 5));
    ...
  end;
  closefile(eingabedatei);

Edit: reset hat gefehlt