Отслеживание переходов в браузере (стороннем или компоненте)

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, activexcontainer, Forms, Controls, Graphics,
  Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    ActiveXContainer1: TActiveXContainer;
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { private declarations }
    procedure MyBeforeNavigate2(Sender: TObject; pDisp:IDispatch;
      var URL:OleVariant; var Flags:OleVariant; var TargetFrameName:OleVariant;
      var PostData:OleVariant; var Headers:OleVariant; var Cancel:WordBool);
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
uses SHDocVw_1_1_TLB;
 
var
  WB : TEvsWebBrowser;
 
{$R *.lfm}
 
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
  url, zero : OleVariant;
begin
  url := UTF8Decode(Edit1.Text);
  zero := Null;
  WB.ComServer.Navigate2(url, zero, zero, zero, zero);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  WB := TEvsWebBrowser.Create(Self);
  ActiveXContainer1.ComServer := WB.ComServer;
  ActiveXContainer1.Active := True;
  WB.OnBeforeNavigate2 := @MyBeforeNavigate2;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  WB.Free;
end;
 
procedure TForm1.MyBeforeNavigate2(Sender: TObject; pDisp: IDispatch;
  var URL: OleVariant; var Flags: OleVariant; var TargetFrameName: OleVariant;
  var PostData: OleVariant; var Headers: OleVariant; var Cancel: WordBool);
begin
  Memo1.Lines.Add(UTF8Encode(URL));
end;
 
end.