Source position: shellctrls.pas line 77
type TAddItemEvent = procedure(
Sender: TObject;
const ABasePath: string;
const AFileInfo: TSearchRec;
var CanAdd: Boolean
) of object;