Как да освободим паметта, използвана от IHTMLDocument?

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

В момента използвам функцията EmptyWorkingSet но чувствам, че това не е добър начин да го направя

EmptyWorkingSet(GetCurrentProcess);

Дори освобождаването на TWebBrowser не помага; проблемът изглежда е в IHTMLDocument COM клас, който не е освободен от паметта. Има ли ясен начин да го освободите; нещо като 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 kB, това е около 1 MB и това може да причини изтичане на памет, в случай че изпълнявам това много пъти.

Благодаря много