[VM007]

Reset(f1);
{$I+}
If IOResult <> 0 then
begin

Application.MessageBox('Не удается открыть файл "*.txt"','Ошибка открытия файла',mb_ok);
Application.Terminate;
end;
Это все выкинуть?
просто я половину списал