problema con el dbedit

[jose.ignacio.ve]

Hola.
Tengo un problema con un programa, resulta que estoy haciendo un alta de productos, con dbedit y componentes zeos.. el problema es que me deja cargar una única vez el producto, cuando vuelvo a entrar para cargar el dbedit "descripción" no me deja escribir.. revise el dataset y las tablas, las abro antes de mostrar el formulario y al apretar cierro la tabla...
muestro algo de codigo

Código Delphi [-]
procedure TFprincipal.Cargar1Click(Sender: TObject);
begin
       fmodulo.tProducto.Active:=true;
       fmodulo.tProducto.Refresh;
       fmodulo.tProducto.Insert;
       fproducto.modificacion:=false;
       fproducto:=TFProducto.create(self);
       fproducto.ShowModal;
end;

cuando presiono en cargar muestro el formulario fproducto..

Código Delphi [-]
IF(modificacion=true)then
        begin
          fmodulo.tProducto.Active:=true;
          fmodulo.tProducto.Edit;
          modificacion:=false;
        end;
      //validacion de los campo
      if(self.DBECod.Text='')then
        begin
              Application.MessageBox('El campo COD BARRA no puede ser vacio','SISTEMA PUNTO DE VENTA JV',MB_OK+MB_ICONWARNING);
              self.DBECod.SetFocus;
        end
      else
          if(self.DBDesc.Text='')then
            begin
                Application.MessageBox('El campo DESCRIPCION no puede ser vacio','SISTEMA PUNTO DE VENTA JV',MB_OK+MB_ICONWARNING);
              self.DBDesc.SetFocus;
            end
            else
               if(self.DBPrecio.text='')then
                begin
                    Application.MessageBox('El campo PRECIO no puede ser vacio','SISTEMA PUNTO DE VENTA JV',MB_OK+MB_ICONWARNING);
                  self.DBPrecio.SetFocus;
                end
                else
                  if(self.DBDescuento.text='')then
                    begin
                        Application.MessageBox('El campo DESCUENTO no puede ser vacio','SISTEMA PUNTO DE VENTA JV',MB_OK+MB_ICONWARNING);
                      self.DBDescuento.SetFocus;
                    end
                    else //paso toda,s las validaciones necesarias
                      begin
                        fmodulo.tProducto['estado']:='A';
                       fmodulo.tProducto.Post;
                       fmodulo.tProducto.Refresh;
                       fmodulo.tProducto.Close;
    
                       self.Close;
                      end;
end;

cuando presiono guardar verifico los campo y cargo el producto..
pero cuando quiero volver a entrar para cargar otro producto ya no me deja escribir en el campo dbdesc...