Очистка памяти при бесконечном цикле while

[DarkZiMAN]

Здравствуйте !

Пишу прогу для мониторинга системы по WMI.
Сейчас работаю над загрузкой всех ядер/потоков процессора. Для этого в бесконечном цыкле считывается параметр "PercentProcessorTime" с "Win32_PerfFormattedData_PerfOS_Pro cessor" для всех ядер/потоков и при этом создается нужное количество Gauges и в них в процентном виде отображается загрузка.
Всё работает, но каждую секунду программа съедает около 16-20 кб памяти.

Вот цикл, который делает мне эту пакость:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  EnumCollection : IEnumVariant;
  CollectionItem : OleVariant;
  Value          : LongWord;
  ACount         : Integer;
  a              : Integer;
  i              : Double;
  index          : Integer;


begin

    EnumCollection := GetPropertyEnumCollection(strQuery, False);
    ACount := 0;
    while (EnumCollection.Next(1, CollectionItem, Value) = S_OK) do

    begin
      GaugeList[ACount].Progress := CollectionItem.PercentProcessorTime;

      inc(ACount);
      
    end;
end;

Скажите как для даного случая очищать память ?

Заранее спасибо.

[3D Hunter]

Нужно высвобождать память, занятую переменной EnumCollection. Возможно, функция GetPropertyEnumCollection выделяет память для этого типа данных, который нужно высвобождать определенным методом, смотрите WMI.

[DarkZiMAN]

все решилось с помощью строчки в конце цикла

VariantClear(CollectionItem);