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

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..

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...