Как отображать значения из VARIANT с SAFEARRAY из BSTRs

Я работаю над библиотекой COM-объектов с функцией, которая возвращает ВАРИАНТ с SAFEARRAY из BSTR s. Как мне отобразить значения из этого экземпляра VARIANT и сохранить их в TStringList ? Я попытался поискать в сети, но не получил четкого ответа.

Я безуспешно пробовал следующее:

Variant V;
String mystr;

VarClear(V);
TVarData(V).VType = varOleStr;
V = ComFunction->GetValues();  //<<<<----- V is empty
mystr = (wchar_t *)(TVarData(V).VString);
Memo1->Lines->Add(mystr);
VarClear(V);