Вот мой код, обрабатывает нажатие кнопки:
Код:
var f:textfile;
s:string;
begin
OpenDialog1.Execute;
Edit1.Text:=OpenDialog1.FileName;
AssignFile(f,OpenDialog1.FileName);
Reset(f);
Readln(f,s);
Memo1.Lines.Add(s);
end;
Работает без ошибок. А у вас ветвление неверно построено - даже если OpenDialog не запущен, вы пытаетесь читать файл (
while Not EOF(F) do...)