WebBrowser1NewWindow2

[alpha1]

I have found new good:

Delphi-Quellcode:

procedure TForm1.NewTab;
var Tab: TTabSheet;
    Browser: TWebBrowser;
begin
 Tab:= TTabSheet.Create(PageControl1);
 Tab.PageControl := PageControl1;
 Tab.Caption := 'about:blank';
 Browser:= TWebBrowser.Create(Tab);
 TControl(Browser).Parent := Tab;
 Browser.Align := alClient;
 Browser.Navigate('about:blank');
end;

It works great