for j:= 0 to iCount-1 do
    begin
        dwiCount:=aItemValues^[j].dwCount;
        for I := 0 to dwiCount - 1 do
          begin
            VariantClear(POleVariantArray(aItemValues^[j].pvDataValues)[i]);
            SysFreeString(StringToOleStr(VarToStr(word(PDWORDARRAY(aItemValues^[j].pdwQualities)[i]))));
          end;

      CoTaskMemFree(aItemValues[j].pdwQualities);
      CoTaskMemFree(aItemValues[j].pftTimeStamps);
      CoTaskMemFree(aItemValues[j].pvDataValues);
    end;
  CoTaskMemFree(aItemValues);

  CoTaskMemFree(pphServer);
  CoTaskMemFree(ppErrors);