Утечка памяти при использовании DOM

[Ferrum26]

Получаю все ссылки на странице способом которым кишит весь интернет:

procedure GetDom(const link: string; idHTTP: TIdHTTP);
Var
Code,temp: string;
Doc: IHTMLDocument2;
V: OleVariant;
HCol, LCol : IHtmlElementCollection;
HElem : IHtmlElement;
rez: TStringList;
begin
rez:=TStringList.Create;
Code:=IdHTTP.Get(link);
Doc:=coHTMLDocument.Create as IHTMLDocument2;
v:=VarArrayCreate([0, 0], VarVariant);
V[0]:=Code;
Doc.Write(PSafeArray(TVarData(V).VArray));
HCol:=Doc.All;
LCol:=HCol.Tags('A') as IHTMLElementCollection;
  for i:=0 to LCol.Length-1 do
  begin
    HElem:=LCol.Item(i,0) as IHtmlElement;
    temp:=HElem.getAttribute('href',0);
    temp:='/'+StringReplace(LowerCase(temp),'about:','' [rfReplaceAll,rfIgnoreCase]);
    temp:=StringReplace(LowerCase(temp),'blank','' [rfReplaceAll,rfIgnoreCase]);
    rez.Add(temp);
  end;

Result:=rez;
end;

При повторении этого кода в цикле память в диспетчере задач доходит до 170 мб. Конечно диспетчер задач не показатель но всё таки что то тут не ладно.

[Квэнди]

rez:=TStringList.Create;

где удаление ?

Doc:=coHTMLDocument.Create as IHTMLDocument2;

где удаление ?

v:=VarArrayCreate([0, 0], VarVariant);

где удаление ?

[Ferrum26]

rez удаляется после вызова процедуры.
Doc и V вообще не имеют методов удаления

[Квэнди]

rez удаляется после вызова процедуры.

После вызова уже не удалите.
Берете любой сборщик утечек и смотрите (хотя бы от того же JCL)

[GunSmoker]

Может помочь.