TServerProcedureEvent = procedure (Sender: TObject; ServerSession: TDBISAMSession; const ProcedureName: String) of object