Erro ao Salvar registro no Delphi

Prezados,
No código Delphi abaixo, estou com o seguinte erro quando vou incluir novo registro.
Error. UNIQUE CONSTRAINT FAILED.
meu banco de dados é:
CREATE TABLE Pessoa (
Codigo INTEGER PRIMARY KEY AUTOINCREMENT
NOT NULL,
CPFCNPJ VARCHAR (18) NOT NULL,
TipoCadastro VARCHAR (30) NOT NULL,
Nome VARCHAR (50) NOT NULL,
Telefone VARCHAR (16) NOT NULL,
Cidade VARCHAR (40) NOT NULL,
Bairro_Distrito VARCHAR (50),
Estado CHAR (2) NOT NULL,
Email VARCHAR (80),
Ativo CHAR (1) NOT NULL,
DataNascReg DATE,
DataInicio DATE,
DataFim DATE
);

O código é :
procedure TPageCadastroPessoas.btnSalvarClick(Sender: TObject);
begin
inherited;
try

with FController.Pessoa do
begin
CPFCNPJ(edtCpfCnpj.Text)
.TIPOCADASTRO(cbTipo.Text)
.NOME(edtNome.Text)
.TELEFONE(edtTelefone.Text)
.CIDADE(edtCidade.Text)
.BAIRRO_DISTRITO(edtBairro.Text)
.ESTADO(edtEstado.Text)
.EMAIL(edtEmail.Text)
.Ativo(edtAtivo.Text)
.DATANASCREG(edtDataNascreg.Date)
.DataInicio(edtDataInicio.Date)
.DataFim(edtDataFim.Date);
Build.Inserir;
end;

ShowMessage('Pessoa cadastrada com sucesso!');
except
on E: Exception do
ShowMessage('Não foi possível cadastrar a pessoa: ' + E.Message);
end;
end;
ALGUÉM PODE ME AJUDAR??????????????????