Readln will irgendwie nicht

[Cr3at0r]

Hi,

ich find den Fehler irgendwie nicht, kann sich ma einer von euch den folgenden Code anschauen?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var F:TextFile;
begin
  If OpenDialog1.Execute Then
    Begin
    AssignFile(F,OpenDialog1.Filename);
    Reset(F);
    Readln(F,Memo1.Text);
    CloseFile(F);
  end;

end;

Vielen Dank im Voraus