Delphi exception violation of PRIMARY or UNIQUE KEY constraint

Estou fazendo uma rotina para que ao importar o XML de uma nota fiscal eletronica, os produtos contidos nela sejam automáticamente inseridas na tabela de cadastro de produtos, no banco de dados Firebird 2.5 criei uma unique key para o campo descricao, para que não se repitam, irei verificar outros campos também, mas gostaria de ver qual seria a melhor forma de tratar a exceção que é retornada quando faço a importação do XML e consequentemente a inserção na tabela produtos.

Está retornando essa exceção
exception message : [FireDAC][Phys][FB]violation of PRIMARY or UNIQUE KEY constraint "UNQ_DESCRICAO" on table "CAD_PRODUTOS" Problematic key value is ("DESCRICAO" = 'XXXXXXX').

procedure TFrmCompra.CadastraProduto(aProduto: TRProduto);
var
mDQuery: TFDQuery;
mDecimal: Char;
begin
mDecimal := FormatSettings.DecimalSeparator;
try

FormatSettings.DecimalSeparator := '.';

mDQuery := TFDQuery.Create(Self);
mDQuery.Connection := FrmPrincipal.DBConexao;
mDQuery.SQL.Clear;
mDQuery.SQL.Add(' insert into CAD_PRODUTOS( ');
mDQuery.SQL.Add(' EMPRESA ');
mDQuery.SQL.Add(' ,REFERENCIA ');
mDQuery.SQL.Add(' ,CODIGO_BARRA ');
mDQuery.SQL.Add(' ,CODIGO_FABRICANTE ');
mDQuery.SQL.Add(' ,DESCRICAO ');
mDQuery.SQL.Add(' ,DATA ');
mDQuery.SQL.Add(' ) ');
mDQuery.SQL.Add(' values ( ');
mDQuery.SQL.Add(':EMPRESA');
mDQuery.SQL.Add(',:REFERENCIA');
mDQuery.SQL.Add(',:CODIGO_BARRA');
mDQuery.SQL.Add(',:CODIGO_FABRICANTE');
mDQuery.SQL.Add(',:DESCRICAO');
mDQuery.SQL.Add(',:DATA');
mDQuery.SQL.Add(' ) ');
mDQuery.ParamByName('EMPRESA').AsInteger := FSistema.Empresa;
mDQuery.ParamByName('REFERENCIA').AsString :=
UpperCase(Trim(aProduto.REFERENCIA));
mDQuery.ParamByName('CODIGO_BARRA').AsString :=
UpperCase(Trim(aProduto.CODBARRA));
mDQuery.ParamByName('CODIGO_FABRICANTE').AsString :=
UpperCase(Trim(aProduto.REFERENCIA));
mDQuery.ParamByName('DESCRICAO').AsString :=
UpperCase(Trim(aProduto.DESCRICAO));
mDQuery.ParamByName('DATA').AsDateTime := Date;
mDQuery.ExecSQL;
finally
mDQuery.Close;
mDQuery.Free;
FormatSettings.DecimalSeparator := mDecimal;
end;
end;

ps: tentei colocar p </> rsrsrs