Source position: TplFileSearchUnit.pas line 43
type TChangeFolderEvent = procedure(
fullpath: string;
info: TSearchRec
) of object;