Source position: fbadmin.pp line 57
type TIBOnOutput = procedure(
Sender: TObject;
msg: string;
IBAdminAction: string
) of object;