Controllare esistenza file da leggere

[netarrow]

in che unit la trovo? cmq ho trovato il seguente sistema:

...
Assign(txtIn, 'a.txt');
{$I-}
reset(txtIn);
{$I+}
if IOResult <> 0 then
 writeln('Errore, file non trovato');
else
 begin
  ...
 end;
...