Unit: edbcomps

TEDBSessionLoginEvent = procedure (Sender: TObject; var
      UserName: String; var Password: String; var Continue: Boolean)
      of object

This type is used for the TEDBSession OnLogin event.