Delphi – How do I always load a new page in TWEBBROWSER?

procedure TForm2.Button2Click(Sender: TObject);
var
 Flags: OLEVariant;

begin
 Flags:=4; //NavNoReadFromCache
 WebBrowser1.Navigate('http://www.ghisler.com/', Flags);< br />end;

I am trying to use Browser.Navigate(URL) to load a web page into TWebBrowser. However, the browser does not care whether the page is updated online, So as long as I don’t restart the program, the new page won’t be displayed.

A more specific example:
If I navigate to a page with a visitor counter (as an image), the counter will Increment. If I leave the page and then return (without using Back), the counter will not increment. In Firefox, it will increase.

This is what I tried and it won’t work:

p>

const
 DLCTL_PRAGMA_NO_CACHE = $00004000;

procedure TBrowserFrm.LoadURL(URL: string);
var
 Flag: OleVariant;
begin
 Flag:=DLCTL_PRAGMA_NO_CACHE;
 Browser.Navigate(URL, Flag);
end; 


procedure TBrowserFrm. LoadURL(URL: string);
var
Flags: OleVariant;
begin
 Flags :='navNoHistory, navNoReadFromCache, navNoWriteToCache';
 Browser.navigate2(URL, Flags);
end; 

Any ideas on how to make TWebBrowser load real pages?

I think you have to use 4 instead of $00004000.

Because I use www.ghisler.com (the counter is in Bottom) I can use

procedure TForm2.Button2Click(Sender: TObject);
var
 Flags: OLEVariant;

 begin
 Flags:=4; //NavNoReadFromCache
 WebBrowser1.Navigate('http://www.ghisler.com/', Flags);
end;

It works perfectly (Delphi XE7). I see the TC homepage, click the hyperlink and then click Button2, the counter is new. When I only use Navigate(URL), the counter is still the same.

p>