TEDBServerProcedureEvent = procedure (Sender: TObject; ServerProcedure: TEDBServerProcedure) of object