TPasswordEvent = procedure (Sender: TObject; var Continue: Boolean) of object;
(Sender: TObject; var Continue: Boolean) ( TPasswordEvent)();
DBTables
This is type DBTables.TPasswordEvent.