[marcoszorrilla]

Este es el código que he recibido como privado y que debe de ser público ya que sino los que están siguiendo el hilo .... lo perderían...

Código Delphi [-]
   unit Unit1;
   
  procedure TFormservicios.botonbuscarClick(Sender: TObject);
  begin
  
      if editorcodigo <> nil then
       begin
      qrycodigo.Close;
      qrycodigo.ParamByName('Codigo').AsInteger := StrToInt(editorcodigo.text);
      Dsconcepto.dataset := qrycodigo;
      qrycodigo.Open;
    
      qryespecialidad.Close;
      qryespecialidad.ParamByName('Codigo').AsInteger := StrToInt(editorcodigo.text);
      Dsespecialidad.dataset := qryespecialidad;
      qryespecialidad.Open;
   
  codigo_esp.Text := codigo_es.Text;
  descripcion_con.Text := descripcion_co.Text;
  codigo_con.Text := codigo_co.Text;
  descripcion_esp.Text := descripcion_es.Text;
  cost.Text := costo.Text;
  fech.Text := fecha.Text;
  orde.Text := norden.Text;
  
       if qrycodigo.EOF then
       ShowMessage('No encontré ningún Registro!');
 
 end
  
  end;
  
  
  procedure TFormservicios.BmodificarClick(Sender: TObject);
  var
  //las borre
  begin
  // borre
  MessageDlg('ESTA SEGURO Q DESEA MODIFICAR ESTE REGISTRO???', mtCONFIRMATION, [mbOk], 0);
  Tbconcepto.Edit;
  Tbconcepto.FieldByName('cod_especialidad').AsString := clave;
  Tbconcepto.FieldByName('cod_concepto').AsString := clave2;
  Tbconcepto.FieldByName('descripcion_concepto').AsString := clave3;
  Tbconcepto.Post;
  Tbconcepto.FlushBuffers;
  Tbconcepto.Close;
  Tbespecialidad.Edit;
  Tbespecialidad.FieldByName('cod_especialidad').AsString := Clave;
  Tbespecialidad.FieldByName('descripcion_especialidad').AsString := clave4;
  Tbespecialidad.FieldByName('orden').AsString := claveo;
  tbespecialidad.FieldByName('nota').AsString := claven;
  Tbespecialidad.post;
  Tbespecialidad.FlushBuffers;
  Tbespecialidad.Close;
   
  ShowMessage('EL REGISTRO FUE MODIFICADO CON EXITO!!');
  end;
   
  end.

Un Saludo.