Bei mir läuft's ohne Fehler durch. Allerdings ist bei mir lNumElements 0. Damit reduziert sich der Fehler auf die beiden Zeilen
Delphi-Quellcode:
if IDispatch(varArr).QueryInterface(IID_IADs, ADsItem) = S_OK then
result := result + ADsItem.ADsPath + #13;
Lutz
[edit=mkinzler]Code-Tag durch Delphi-Tag ersetzt Mfg, mkinzler[/edit]