Unit: edbcomps

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

This type is used for the TEDBEngine OnServerSessionLoginEvent event.