Hilfe bei Save und Open Dialogs

[Coder1990]

ok das hab ich jetzt zusammengekriegt

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject);
begin
savedialog1.InitialDir:=(Application.ExeName);
if SaveDialog1.Execute then begin
SaveFile(SaveDialog1.FileName,ExtractFilepath(SaveDialog1.FileName));

end;
end;

klappt jetzt eigentlich auch mit dem speichern
nun möchte ich aber die Datei auslesen und stoße immer wieder auf E/A Probleme
Hier mein Code:

Delphi-Quellcode:

if OpenDialog1.Execute then begin
AssignFile(Datei,ExtractFilePath(OpenDialog1.Filename)+OpenDialog1.filename);
end;
reset(Datei);
// Auslesen
repeat
Readln(Datei,Line);
case Line[1] of // Erkennung 1
                '1':
                 .........
until eof(datei);
end;

Aber leider verursacht das reseten Probleme

//edit P.S.: wie krieg ich hin dass beim opendialog nur txt dateien angezeigt werden?

//edit2: Um genau zu sein ist es ein "EinOutError" oder so