Source position: dbctrls.pp line 1100
type TDBNavClickEvent = procedure(
Sender: TObject;
Button: TDBNavButtonType
) of object;