[Thrasher]

Попробуй так

Код:

{$I-}
AssignFile(f,Filename);
reset(f)
{$I+}
if IOResult<>0 then 
     Writeln('Error at opening file!');