Source position: grids.pas line 290
type THdrEvent = procedure(
Sender: TObject;
IsColumn: Boolean;
Index: Integer
) of object;