Пpиветствую Вас, многоуважаемый Bart!
Однажды, Sun Mar 23 1997, Bart Broersma взял, да и написал для All:
 BB> I tried this:
 BB> try
 BB>   FName := OpenRtf.FileName;
 BB>   Memo1.Lines.LoadFromFile(FName);
 BB> Except
       on E: Exception do
         MessageDlg(E.Message, mtInformation, [mbOk], 0);
       {
 BB>   on E: EInOutError do
          Where you use E.ErrorCode (you need to do this, if you want use
EInOutError exception class). Using ErrorCode (i think so) clear exception 
from
exception list...
 BB>   begin
 BB>     MessageDlg(E.Message,mtInformation,[mbOk],0);
 BB>   end;
       }
 BB> end;
                          Всего Вам желаю, Konstantin. AKA 2:5061/24.61
---
---------------