public
    { Public declarations }
    procedure MsgHandle(var Msg :TMsg; var Handled :Boolean);
  end;    var
  Form1: TForm1;
  FOleInPlaceActiveObject :IOleInPlaceActiveObject;    implementation    {$R *.DFM}    procedure TForm1.MsgHandle(var Msg :TMsg; var Handled :Boolean);
var
 iOIPAO :IOleInPlaceActiveObject;
 Dispatch :IDispatch;
begin
 if WebBrowser1 =nil then
 begin
  Handled :=False;
  Exit;
 end;
 Handled :=(IsDialogMessage(WebBrowser1.Handle, Msg) =True);
 if (Handled) and (not WebBrowser1.Busy) then
 begin
  if FOleInPlaceActiveObject =nil then
  begin
   Dispatch :=WebBrowser1.Application;
   if Dispatch <>nil then
   begin
    Dispatch.QueryInterface(IOleInPlaceActiveObject, iOIPAO);
    if iOIPAO <>nil then
     FOleInPlaceActiveObject :=iOIPAO;
   end;
  end;
 end;     if FOleInPlaceActiveObject <>nil then
  if ((Msg.message =WM_KEYDOWN) or (Msg.Message =WM_KEYUP)) and ((Msg.wParam =VK_BACK) or (Msg.wParam =VK_LEFT) or (Msg.wParam =VK_RIGHT)) then      else
   FOleInPlaceActiveObject.TranslateAccelerator(Msg);
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
 Application.OnMessage :=MsgHandle;
end;    procedure TForm1.FormDestroy(Sender: TObject);
begin
 FOleInPlaceActiveObject :=nil;
end;