CoHTMLDocument

http://blog.csdn.net/dlwxn/article/details/2860329

http://www.itnose.net/detail/120267.html

不知道是 线程内代码造成的内存泄露还是反复创建线程造成的  

线程里 用到了 以下代码 

function THtmlThreade.HtmlToText(HtmlText: WideString): WideString;
var
  V: OleVariant;
  Document: IHTMLDocument2;
begin
  Result := HtmlText;

  if HtmlText = ‘‘ then Exit;
  CoInitialize(nil);
  Document := CoHTMLDocument.Create as IHtmlDocument2;
  try
    V := VarArrayCreate([0, 0], varVariant);
    V[0] := HtmlText;
    Document.Write(PSafeArray(TVarData(v).VArray));
    Document.Close;
    Result := Trim(Document.body.outerText);
  finally
    Document := nil;
    CoUninitialize;
  end;
end;

CoHTMLDocument

原文：http://www.cnblogs.com/CodeGear/p/5076784.html