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

  AssignFile(Datei, ...);
  Reset(Datei);
  while noch Eof(Datei) do
  begin
    ReadLn(Datei, IntVariable);
    // Hier muss die Variable dann verarbeitet werden
  end;
  CloseFile(Datei);					

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

...
5978
5901
5933
5946
5910
5895
5889
...					

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

procedure einlesen ();                                 // Daten einlesen
var einlesen: TextFile;
    k: integer;
begin
  AssignFile(einlesen,'C:\...' );
  Reset(einlesen);
  while not Eof(einlesen) do
  begin
    ReadLn(einlesen, k);
    form4.series1.add (k);
  end;
  CloseFile(einlesen);
end;