thank you helen very much,
now it works, i use:

procedure TForm1.Fehlerbehandlung(Sender:TObject; E: Exception);
begin
if ((exceptobject.classname = 'EIB_ISCError') or
(exceptobject.classname = 'EIBO_ISCError')) then begin
showmessage('damn');
//-> save error_informations for auto-supervisor (one of my NT-Services) and this module mails this to admin ...
end else Application.ShowException(E);
end;

prost (german word for cheers)
-gerhard








[Non-text portions of this message have been removed]