TEDBServerSessionLoginEvent = procedure(Sender: TObject; const UserName: String; const UserPassword: String; const Address: String; const ProcessName: String; ThreadID: Integer; ReleaseNumber: Currency; BuildNumber: Integer; var AllowLogin: Boolean) of object