Как освободить память, используемую IHTMLDocument?

есть ли способ освободить память после использования IHTMLDocument (IHTMLDocument2)?

В настоящее время я использую функцию EmptyWorkingSet но я чувствую, что это не лучший способ сделать это

EmptyWorkingSet(GetCurrentProcess);

Даже освобождение TWebBrowser не помогает; проблема, похоже, в COM-классе IHTMLDocument, который не освобождается из памяти. Есть ли четкий способ выпустить его; что-то вроде Marshal.ReleaseComObject, но доступно для Delphi?

Его можно воспроизводить с меньшей потерей памяти, чем при запущенном JavaScript, но все же. Если вы поместите две кнопки в верхнюю часть формы и попробуете следующий код ...

uses MSHTML, SHDocVw;

type
  TForm1 = class(TForm)
  private
    WebBrowser: TWebBrowser;
    HTMLDocument: IHTMLDocument2;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser := TWebBrowser.Create(nil);
  TWinControl(WebBrowser).Parent := Self;
  WebBrowser.SetBounds(8, 39, ClientWidth-16, ClientHeight-47);
  WebBrowser.Navigate('http://maps.google.com/');
  HTMLDocument := WebBrowser.Document as IHTMLDocument2;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  WebBrowser.Free;
  HTMLDocument := nil;
end;

Вы будете видеть потерю памяти после каждого освобождения веб-браузера. Когда я запускаю свой JavaSrcipt, он намного превышает 300 КБ, это около 1 МБ, и это может вызвать утечку памяти, если я запускаю это много раз.

Большое спасибо