Source position: TplDBGridControllerUnit.pas line 195
type TplBeforeSortColumn = procedure(
Sender: TObject;
Column: TColumn;
var AllowSorting: Boolean
) of object;