1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TfrmWebkataloger.WBNewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  ts: TTabSheet;
  name:string;
begin
  if TWebbrowser(Sender).ReadyState <> READYSTATE_COMPLETE then
  begin
    ppDisp := nil;
    Cancel := True;
  end
  else
  begin
    txtWBi.text:=inttostr(strtoint(txtWBi.text)+1);
    ts := CreateTabBrowser('', 'WB'+inttostr(strtoint(txtWBi.text)+1),inttostr(strtoint(txtWBi.text)+1));
    WaitForBrowser(TWebbrowser(ts.Controls[0]));
    ppdisp := (TWebbrowser(ts.Controls[0])).Application;
    WaitForBrowser(TWebbrowser(ts.Controls[0]));
    ts.Controls[0].Name:=name;
  end;
end;