Unit: dbisamtb

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

This type is used for the TDBISAMSession OnRemoteLogin event.