E/A Fehler abfangen?

[scp]

Delphi-Quellcode:

var
  IORes : integer;

{$I-}
//Hier Dateioperationen
{$I+}
IORes := IOResult;
Case IORes Of
  32: begin
        //Hier E/A-Fehler 32 behandeln
      end;
  else ShowMessage('E/A-Fehler ' + IntToStr(IORes));
end;