Código Delphi [-]
class function TfrmSecundario.Mostrar: Boolean;
begin
  with Self.Create(nil) do
  try
    Result:= ShowModal = mrOk
  finally
    Free
  end
end;

Código Delphi [-]
procedure TfrmPrincipal.ShowSecundario(Sender: TObject);
begin
  TFrmSecundario.Mostrar
end;

Código Delphi [-]
 
tsDatos.tabVisible := False;

Código Delphi [-]
 
tsDatos.tabVisible := False;

Código Delphi [-]
procedure TForm1.btnTabsOnOffClick(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to PageControl1.PageCount -1  do
    with PageControl1.Pages[i] do
      TabVisible:= not TabVisible
end;

Código Delphi [-]
var
  Page: TTabSheet;

begin
  // Crear una página:
  Page := TTabSheet.Create(PageControl1);
  Page.PageControl := PageControl1;
  Page.Caption := 'Página 1';
  // ...
  // Eliminar la página:
  Page.Free;
end;

Código Delphi [-]
begin
    with TSolicitanteEditorForm.Create(Self) do
    begin
        SolicitudesDm.QSolicitante.Open;
        SolicitudesDm.QSolicitante.Append;

        if ShowModal = idOk then
        begin
            Self.txtRfc.Text := SolicitudesDm.QSolicitante['rfc'];
            Self.txtApellidos.Text := SolicitudesDm.QSolicitante['apellidos'];
            Self.txtNombre.Text := SolicitudesDm.QSolicitante['nombre'];
        end;
    end;
end;

Código Delphi [-]
var
    SolicitanteId: Integer;

begin
    SolicitanteId := QSolicitantesSesion['solicitante_id'];

    SolicitudesDm.QSolicitante.Close;
    SolicitudesDm.QSolicitante.ParamByName('id').AsInteger := SolicitanteId;
    SolicitudesDm.QSolicitante.Open;

    with TSolicitanteEditorForm.Create(Self) do
    begin
        SolicitudesDm.QSolicitante.Edit;

        if ShowModal = idOk then
        begin
            QSolicitantesSesion.Refresh;
            QSolicitantesSesion.Locate('id', SolicitanteId, []);
        end;
    end;
end;

Código Delphi [-]
procedure TSolicitanteEditorForm.FormShow(Sender: TObject);
begin
    if dsSolicitantes.DataSet.State = dsInsert then
        Caption := 'Nuevo solicitante'
    else if dsSolicitantes.State = dsEdit then
        Caption := 'Datos del solicitante';
end;

Código Delphi [-]
procedure TSolicitanteEditorForm.FormShow(Sender: TObject);
begin
    if dsSolicitantes.DataSet.State = dsInsert then
        InicializaInserción()
    else if dsSolicitantes.State = dsEdit then
        InicializaEdicion();
end;