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