Source position: msegrids.pas line 1970
type gridsorteventty = procedure(
const sender: tcustomgrid;
const lindex: Integer;
const rindex: Integer;
var aresult: Integer
) of object;