[[Caral]]

Hola
Coloca un checkbox en el form:

Código Delphi [-]
procedure TFrmPrincipal.CheckBox1Click(Sender: TObject);
begin
   If Checkbox1.Checked = True then
   begin
   Checkbox1.Caption:= 'Insertar';
   end
   else
   Checkbox1.Caption:= 'Modificar';
end;

procedure MuestraVentana(ventana: string; modo: string);
begin
 if ventana = 'Clientes' then
  begin
    if FrmCliente = nil then
    begin
      FrmCliente := TfrmCliente.create(FrmCliente);
      Try
      FrmCliente.Parent := FrmPrincipal.Panel4;
      FrmCliente.Caption := 'Clientes';
      dmacceso.cdsClientes.Active := True;

      If Checkbox1.Checked = True then
      begin
      // insertar
      dmacceso.cdsClientes.Last;
      dmacceso.cdsClientes.Open;
      dmacceso.cdsClientes.Insert;
      FrmCliente.Show;
      end
      else
      begin
      // modificar
      dmacceso.cdsClientes.Open;
      dmacceso.cdsClientes.Edit;
      FrmCliente.Show;
      end;

      finally
         If FrmCliente.Caption <> ' ' then
         Begin
           FrmPrincipal.TabSet1.Tabs.add(FrmCliente.Caption);
           FrmPrincipal.TabSet1.TabIndex := FrmPrincipal.TabSet1.Tabs.Count - 1;
         end;
   end;
end;

procedure TfrmCliente.btnModificarClick(Sender: TObject);
begin
  dmacceso.cdsClientesPAIS.Value := cbexPais.Text;
  dmacceso.cdsClientes.ApplyUpdates(0);

  if Application.MessageBox('Cliente Modificado',
  'Atención',(MB_OK + MB_ICONINFORMATION))= mb_ok then
  begin
    frmcliente.Close;   //            Estas dos lineas de código en particular no 
    frmFicherocliente.Show;//     me hacen nada cuando doy aceptar. Alguna idea como mejorar eso?
  end

end;

end;

saludos