Creacion de componentes. Tabs estilo firefox

[[seoane]]

La cosa podría quedar así:

Código Delphi [-]
procedure TfrmPrincipal.CrearTab (Titulo : string; Direccion : string);
var
  Pagina : TTabSheet;
  Nav    : TWebBrowser;
begin
  Pagina:= TTabSheet.Create(psNavegador);
  Pagina.PageControl:= psNavegador;
  Pagina.Caption := Titulo;
  Nav:= TWebbrowser.Create(Pagina);
  // Esta es la unica solcuion que se me ocurrio para que alClient funcione
  TControl(Nav).Parent:= Pagina;
  Nav.Align := alClient;
  Nav.Navigate(Direccion);
end;