[steelha]

Buenas, podría alguien explicar que sucede. Tengo un data modulo con los un Tzconection y varios tzquery, al buscar información no he tenido ningún problema, el problema se me presento al intentar modificar el valor de un campo el cual no se modifica. Es la primera ves que utilizo estos componentes.

Datos adicionales:
Delphi 7, ZeosDb
cnprincipal(Tzconection) : los parametros se cargan desde un inifile. (sin problema)
sqlsecuencias(tzquery) : SQL (Select * from tblsecuencias).

Codigo:

Código Delphi [-]
procedure TfrmAdmision.guardar_Datos(tipguard: Integer);
var hc  : string;
    hcn :Integer;
begin
  hcn := 0;
    if tipguard = 1 then     //Nuevo registro
    begin
      //Preguntar si es automatico o manual
      if Application.MessageBox( 'Asignación Número de Historia', 'Desea Asignala Manual', MB_ICONQUESTION OR MB_YESNO ) = ID_YES then
      begin
          //Obtener historia clinica manualmente
          repeat
            InputQuery('Historia Clinica Manual', 'Número de Historial ', hc);
          until ((Trim(hc) <> '') and (StrToInt(hc) > 0));
      end
      else
      begin
        //Obtener secuencia historial clinico automatico
        dmConexiones.sqlSecuencias.Close;
        dmConexiones.sqlSecuencias.Open;                                                  
          dmConexiones.sqlSecuencias.First;                                                
          hcn := dmConexiones.sqlSecuenciasHistoriaClinica.Value + 1;            
          dmConexiones.sqlSecuencias.Edit;
          dmConexiones.sqlSecuenciasHistoriaClinica.Value := hcn;
        dmConexiones.sqlSecuencias.Post;
        dmConexiones.sqlSecuencias.Close;
      end;

      If ((Trim(hc) <> '') and (StrToInt(hc) > 0)) then
        hcn := StrToInt(Trim(hc));

      edthcn.Text := IntToStr(hcn);
    end;

    if tipguard = 2 then     //Datos Modificados
    begin

    end;
end;

El programa no me da ningún error pero no me modifica el registro