[novato_erick]

Bueno logre poner en modo de Edición mi procedimiento al llamar el formulario en modo de edición he aquí la forma en que lo deje.

Código Delphi [-]

procedure MuestraVentana(ventana: string; modo: string);

if ventana = 'Clientes' then // lo considero como mi modo 'Normal' al ejecutarlo que significa agregar registros
  begin
    if FrmCliente = nil then
    begin
      FrmCliente := TfrmCliente.create(FrmCliente);
      Try
      FrmCliente.Parent := FrmPrincipal.Panel4;
      FrmCliente.Caption := 'Clientes';
      dmacceso.cdsClientes.Active := True;
      dmacceso.cdsClientes.Insert;
      FrmCliente.Show;
      finally
      If FrmCliente.Caption <> ' ' then
      Begin
      FrmPrincipal.TabSet1.Tabs.add(FrmCliente.Caption);
      FrmPrincipal.TabSet1.TabIndex := FrmPrincipal.TabSet1.Tabs.Count - 1;
      end;
      end;
    end;

    if modo = 'Editar' then
    begin
        frmCliente.btnModificar.Visible := True;// hago que se ponga visible el botón de modificar
        frmCliente.btnGuardar.Visible := False;// aquí oculto el botón de guardar pues esta en modo de edición
        frmCliente := TfrmCliente.Create(nil);
        dmacceso.cdsClientes.Edit;
    end;

  end;

Sin embargo aun pasa algo extraño, no me muestra los datos en seguida en los dbedit al abrir el formulario para ser modificados si no le doy click en algun dbEdit. ¿Alguien tiene alguna idea de como sulucionar este problema en si?

aquí esta como llamo a mi formulario en modo de Edición en el DBGrid con el evento DblClick

Código Delphi [-]
procedure TfrmFicheroCliente.dbgClientesDblClick(Sender: TObject);
begin
 pais := dmAcceso.cdsClientesPais.text;
 MostrarRegistroYGuardar;
end;

aquí llamo el modo de edición con un TButton:

Código Delphi [-]
procedure TfrmFicheroCliente.aModificarExecute(Sender: TObject);
begin
  pais := dmAcceso.cdsClientesPais.text;
  MostrarRegistroYGuardar;
end;

procedure TfrmFicheroCliente.MostrarRegistroYGuardar;
begin
  utiles.MuestraVentana('Clientes', 'Editar');// aquí llama al modo Editar del FrmCliente
end;