Компонент EmbeddedWB - подмена реферера

[presta]

Здравствуйте.

В сети можно найти один способ подмены реферера:

procedure TForm1.Button1Click(Sender: TObject);
var
Flags, Headers, TargetFrameName, PostData: OLEVariant;
Url, Ref: string;

begin
Flags := '';
TargetFrameName := '';
PostData := '';
Url := 'http://sait1.com';
Ref := 'http://sait2.com/';
Headers := 'Referer: ' + Ref + #10 + #13;
Webbrowser1.Navigate(Url, Flags, TargetFrameName, PostData, Headers);
end;

Но счетчикам это не нравится, почти не обрабатывается. Есть более тонкие способы, возможно с использованием события OnBeforeNavigaye2.

Может кто-то знает как справиться со счетчиками? В том числе и с переходами (яко бы) из поисковых систем.

Спасибо.