I'm having trouble to start using IBObjects. When I try to add a
record to a table I get the following error: "Field 'CODIGO_DIREITO'
must have a value".

----------------------------------------------------
But here's part of the code:
----------------------------------------------------

// qDireito=TIBOQuery with internal UpdateSQL

with DM.qDireito do begin Insert;
FieldByName('CODIGO_DIREITO').Value := iDireito;
FieldByName('ordem').Value := StrToFloat(aOrd[iDireito]);
FieldByName('nivel').Value := aNiv[iDireito];
FieldByName('descricao').Value := aDesc[iDireito];
Post;
end;

I'm setting a value to the field CODIGO_DIREITO.

----------------------------------------------------
Here's is the table definition:
----------------------------------------------------

CREATE TABLE L_DIREITO (
codigo_direito DECIMAL(18,0) NOT NULL
, ordem DECIMAL(18,0)
, nivel VARCHAR(2)
, descricao VARCHAR(100)
, nome_modulo VARCHAR(100)
, CONSTRAINT PK_L_DIREITO PRIMARY KEY (codigo_direito)
);

----------------------------------------------------

I tryed to add all fields to the component and set the required
field to FALSE but Firebird/Interbase is giving another error.

Any ideas?

Thanks in advance,

Antonio Carlos