TEDBServerSessionEvent = procedure(Sender: TObject; EventType: TEDBServerSessionEventType; const Session: TEDBServerSession; var UserObject: TObject) of object