Er sagt: VariantIsObject UNdeklarierter Bezeichner.
Sorry, ich hatte vergessen die Funktion mitzugeben (einfach vor die Funktion Browser2TreeView() kopieren):
Delphi-Quellcode:
function VariantIsObject(const value:OleVariant):boolean;
begin
result := (VarType(value) = varDispatch);
end;