Error al insertar un nuevo registro

[[FGarcia]]

Hola!
Anteriormente con un codigo similar esto me funciona OK

Código Delphi [-]
    with cdsEntradas do
      begin
        Append;
          Fieldbyname('FOLIO').value := etqFolio.Caption;
          FieldByName('CODIGO').Value := edtCodigo.Text;
          FieldByName('NOMBRECP').Value := cbClienteprov.Items[cbClienteprov.ItemIndex];
          FieldByName('NOMBREPROD').Value := cbProducto.Items[cbProducto.ItemIndex];
          FieldByName('HFENTRADA').Value := Now;
        Post;
      end;

Ahora tengo el problema que me envia un error diciendome que el valor del campo codigo es "NULL", sin embargo edtCodigo contiene una cadena alfanumerica. El campo Codigo es Varchar tamaño 10 ¿Alguien sabra porque lo hace? Esoy usando Firebird 2.0, D7,y los MDO