adding tabs to web browser (not 100% but it works)


1) add activex to your uses.
2) add


    FOleInPlaceActiveObject : IOleInPlaceActiveObject;
    procedure MyMessage(var Msg: TMsg; var Handled: Boolean);
 
 in the private section (under uses)


3) on form load (or the first routine that executes)


   application.OnMessage := mymessage;






4) add


procedure form1.MyMessage(var Msg: TMsg; var Handled: Boolean);
var
   xi: IOleInPlaceActiveObject;
   d: IDispatch;
begin
   handled:=(IsDialogMessage(Webbrowser_v11.Handle,msg)=true);
   if (handled) and (not webbrowser_v11.Busy) then begin
       if FOleInPlaceActiveObject=nil then begin
//           d:=webbrowser_v11.Application; (if using delphi3. for d4 use below
           d:=webbrowser_v11.Application_;
           if d<>nil then begin
               d.QueryInterface(IOleInPlaceActiveObject,xi);
               if xi<>nil then
                   FOleInPlaceActiveObject:=xi;
           end;
       end;
       if FOleInPlaceActiveObject<>nil then
           FOleInPlaceActiveObject.TranslateAccelerator(msg);
       end;
end;






 and it should work