Erro quando vou Inserir\\Salvar um registro

Erro ao salvar registro.

Prezados,
Quando tento incluir um registro em meu Form,
Aparece a mensagem de erro abaixo:

"ERRO FIREDAC-SQLITE: 335.PARAMETER {CODIGO_COMPRA]
DATA TYPE IS UNKNOW.HINT: SPECIFY TFDPARAM.DATATYPE
OR ASSIGN TFDPARAM VALUEBEFORE PREPARE\EXECUTE CALL."

Tenho o procedimento para InserirRegistro que está
ocasionando um erro quando vou salvar o registro,
referente ao campo CODIGO_COMPRA da Tabela CompraItens
que esta ligado ao Campo Codigo da Tabela Compras.

Estou utilizando o padrão MVC com interfaces.
Seguem as tabelas e o código completo .

ALGUÉM PODE ME AJUDAR????AGRADEÇO ANTECIPADAMENTE.
=x=x=x=x=x=x==x=x=x=x=x==x=x=x=x=x==x=x=x=x=x==x=x=x=x=x==x=x
CREATE TABLE compra (
CODIGO INTEGER PRIMARY KEY AUTOINCREMENT,
CPFCNPJ VARCHAR (18) REFERENCES Pessoa (CPFCNPJ) ON DELETE CASCADE
ON UPDATE CASCADE
NOT NULL,
dataemissao DATE DEFAULT CURRENT_DATE
NOT NULL,
valortotal DECIMAL (17, 2)
);
x==x=x=x=x=x=x=x=x==x=x=x=x=x=x=x==x=x=x=x=x=x==x=x=x=x=x=x==x=x

CREATE TABLE compraitens (
Codigo INTEGER PRIMARY KEY AUTOINCREMENT,
Codigo_Compra INTEGER REFERENCES compra (CODIGO) ON DELETE CASCADE
ON UPDATE CASCADE,
Codigo_Produto INTEGER REFERENCES produto (CODIGO)
NOT NULL,
Codigo_Atividade INTEGER REFERENCES Atividade (CODIGO)
NOT NULL,
Codigo_Conta INTEGER REFERENCES PlanoContas (CodigoConta)
NOT NULL,
quantidade INTEGER NOT NULL,
valorunitario DECIMAL (17, 2) NOT NULL,
valortotal DECIMAL (17, 2)
);

=x=x=x==x=x=x=x==x=x=x=x=x=x=x=x=x==x=x=x=x=x=x=x==x=x=x=x=x=x==x=x=x=x=x=x=x=x==x=x=x=
procedure TPageCompras.InserirRegistro;
var
NewCompraID: Integer;
begin
ShowMessage('Iniciando inserção de registro.');

TUtilitarios.VerificaCampoVazio(edtCPFCNPJ, 'CPF ou CNPJ');
TUtilitarios.VerificaCampoVazio(edtCodigoProduto, 'Código do Produto');
TUtilitarios.VerificaCampoVazio(edtQuantidade, 'Quantidade');
TUtilitarios.VerificaCampoVazio(edtValorUnitario, 'Valor Unitário');
TUtilitarios.VerificaCampoVazio(edtCodigoAtividade, 'Código da Atividade');
TUtilitarios.VerificaCampoVazio(edtCodigo_Conta, 'Código da Conta');
TUtilitarios.VerificaCampoVazio(edtDataCompra, 'Data da Compra');

try
ShowMessage('Verificações de campo concluídas. Inserindo compra...');

with FController.Compra do
begin
CPFCNPJ(edtCPFCNPJ.Text);
DATAEMISSAO(edtDataCompra.Date);
VALORTOTAL(StrToCurrDef(edtValorTotal.Text, 0.00));
Build.Inserir;
NewCompraID := CODIGO;
ShowMessage('Compra inserida com sucesso. ID: ' + IntToStr(NewCompraID));
end;

ShowMessage('Inserindo itens da compra...');
//////ERRO A PARTIR DAQUI
with FController.CompraItens do
begin
CODIGO_COMPRA(NewCompraID);
CODIGO_PRODUTO(StrToInt(edtCodigoProduto.Text));
CODIGO_ATIVIDADE(StrToInt(edtCodigoAtividade.Text));
CODIGO_CONTA(StrToInt(edtCodigo_Conta.Text));
QUANTIDADE(StrToInt(edtQuantidade.Text));
VALORUNITARIO(StrToCurrDef(edtValorUnitario.Text, 0.00));
VALORTOTAL(StrToCurrDef(edtValorTotal.Text, 0.00));
Build.Inserir;
ShowMessage('Itens da compra inseridos com sucesso.');
end;

ShowMessage('Compra cadastrada com sucesso!');
except
on E: Exception do
begin
ShowMessage('Erro ao tentar cadastrar a compra: ' + E.Message);
raise;
end;
end;
end;
procedure TPageCompras.btnSalvarClick(Sender: TObject);
begin
inherited;
try
//Erro nesse metódo (Provavelmente)

InserirRegistro;
except
on E: EDatabaseError do
if Pos('unique constraint', E.Message) > 0 then
ShowMessage('Erro: Código da compra já existe!')
else
ShowMessage('Erro de banco de dados: ' + E.Message);
on E: Exception do
ShowMessage('Erro geral: ' + E.Message);
end;
end;