[roamer]

А конструкция :

Код:

TRY
  ...
  ...
EXCEPT
    on E: Exception do
     begin
      sErr_Except:=E.Message;
      //WriteToLog('Error: copy=FALSE; '+sErr_Except, false);
    end;
END;

не поможет ?