Lazarus Fehler beim lesen einer Textdatei

[foerster7892]

Ja hi wie im Titel beschrieben:

Delphi-Quellcode:

function SchluesselA(x:string):TISArray;
var TxtDatei:Textfile;
    Ss,ZS   :String;
    i, Zaehl:Integer;
begin
  AssignFile(TxtDatei, x);
  reset(TxtDatei);
  readln(TxtDatei, Ss);   //Run-Error(3)
  zaehl := 1;
  for i := 1 to length(Ss) do
    if Ss[i] = ' ' then inc(zaehl);

  setlength(SchluesselA, zaehl);
  ZS := '';
  Zaehl:=0;
  for i := 1 to length(Ss)do
  begin
    if Ss[i] = ' ' then
    begin
      SchluesselA[Zaehl] := StrToInt(ZS);
      inc(Zaehl);
      ZS := '';
    end
    else ZS := ZS + Ss[i];
  end;
  CloseFile(TxtDatei);
end;

procedure TForm1.Button1Click(Sender: TObject);
var Textpfad                :string;
    i                       :integer;
    Schluessel              :TISArray;
begin
  Form1.OpenDialog1.Execute;
  Textpfad:=OpenDialog1.Filename;
  Form1.OpenDialog1.Execute;
  Schluessel:=SchluesselA(OpenDialog1.Filename);
  for i := 1 to length(Schluessel) do
    Form1.Memo1.Lines.add(IntToStr(Schluessel[i]));

end;

Wäre dankbar wenn mir einer den Fehler erklären könnte ich versteh ihn nicht!
Das Verzeichnis existiert und es ist auch nicht im Zugriff eingeschränkt.