Source position: treegrids.pas line 2095
type TTGIncrementalSearchEvent = procedure(
Sender: TBaseTreeGrid;
Node: PTreeGridNode;
const SearchText: string;
var Result: Integer
) of object;