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