[v1s2222]

Ну понимаешь, я не телепат, но такая ошибка из-за того, что ты не обьъявил это функцию, объяви ее в баблике:

Код:

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
...
  private
  public
    function CreateNewTabBrowser(Url: string): TTabSheet;
  end;

...

function TForm1.CreateNewTabBrowser(Url: string): TTabSheet;
begin
  NewTab := TTabSheet.Create(PageControl1);
  with NewTab do
  begin
    PageControl := PageControl1;
    Parent := PageControl1;
    PageIndex := PageControl1.ActivePageIndex;
  end;
  DesignTimeWB := TEmbeddedWB.Create(NewTab);
  TControl(DesignTimeWB).Parent := NewTab;
  with DesignTimeWB do
  begin
    EnableMessageHandler := True;
    LoadSettings;
    Align := alClient;
    OnStatusTextChange := NewWebStatusTextChange;
    OnNewWindow2 := NewWindowEvent;
    OnDownloadComplete := DownloadCompleteEvent;
    if Trim(URL) <> '' then
      DesignTimeWB.NavigateWait(URL);
  end;
  PageControl1.ActivePage := NewTab;
  Result := NewTab;
end;