Textzeile in Txt auslesen

[Alexander Roth]

Also, bei mir compiliert er zwar fehlerfrei, aber beim Auwsführen bringt er einen Fehler.
Ich habe mal alles unwichtige aus meiner Procedure gestrichen und es hier dargestellt.
Erkennt vielleicht jemand was daran falsch ist???

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var     sl: TStringList;
       f:textfile;

begin

assignfile(f, 'E:\Delphi\Mathematik\Aufgelistete Primzahlen.txt');
rewrite(f);
write(f, '2');

    while j < aerg do
      begin
        sl.loadfromfile('E:\Delphi\Mathematik\Aufgelistete Primzahlen.txt');
        primzahl:=strtoint64(sl[j]);
        sl.free;
      end;
closefile(f);
end;