如何在Delphi GMLib中清除TWebBrowser中的缓存？

uses
  GMLib, SHDocVw;

var
  WebBrowser: TWebBrowser;
  Explorer: InternetExplorer;
begin
  WebBrowser := TWebBrowser.Create(nil);
  Explorer := WebBrowser.DefaultInterface as InternetExplorer;

var
  InternetOptions: IInternetOptions;
begin
  InternetOptions := Explorer.Options;

InternetOptions.SetCacheSize(0);

WebBrowser.Refresh2(REFRESH_COMPLETELY);

uses
  GMLib, SHDocVw;

procedure ClearWebBrowserCache(WebBrowser: TWebBrowser);
var
  Explorer: InternetExplorer;
  InternetOptions: IInternetOptions;
begin
  Explorer := WebBrowser.DefaultInterface as InternetExplorer;
  InternetOptions := Explorer.Options;
  InternetOptions.SetCacheSize(0);
  WebBrowser.Refresh2(REFRESH_COMPLETELY);
end;