Source position: dbgrids.pas line 123
type TDbGridCellHintEvent = procedure(
Sender: TObject;
Column: TColumn;
var AText: string
) of object;