Проблема с памятью???

[Veron]

Итак:

Дело в следующем коде:
Объявлена переменная pVariants типа PoleVariantArray;
Затем выделяется память:
  pVariants:=POleVariantArray(CoTaskMemAlloc(itemCount*sizeof(OleVariant)));  
// переменная типа POleVariant размером на itemCount элементов
... //далее какой-то код, заполнение и использование pVariants...
if pVariants <> nil then      CoTaskMemFree(pVariants);

Появляются ошибки. Вообще при попытке присвоения переменной pVariants какого-то значения. Где-то в статьях прочитал, что надо при работе в вариантными типами использовать дополнительно Initialize(pVariants,sizeof(OleVariant));

Но тогда появляется ошибка при выполнении строки CoTaskMemFree(pVariants); Добавление строки типа Finalize(pVariants) не помогает...

Не знаю, что неправильного???