CODIGOS DUPLICADOS COM DISTINCT

Estou fazendo repasse em do sql server pro firebird usando o delphi.

select
DISTINCT(tp.pro_codigo) as CODIGO,
tp.pro_descricao as DESCRICAO,
tp.pro_unidade_venda as UNIDADE,
tp.pro_situacao AS INATIVO,
tp.pro_ncm as CODIGONCM,
tp.pro_dt_cadastro as DTCADASTRO,
tp.pro_cod_cest as CEST,
pu.proun_preco_venda as PRECOVENDA,
pu.proun_custo_real as PRECOCUSTO,
pu.proun_qtd_estoque as QUANTIDADE,
F.fab_codigo AS CODFORNECEDOR,
FG.grp_id AS CODGRUPO,
FC.cat_id AS CODSUBGRUPO,
(select TOP 1 PB.barra_codigo from tb_produto_barra where pb.pro_id = tp.pro_id ) as CODBARRAS,
CAST(PP.pat_descricao AS VARCHAR (40)) REFERENCIA

from tb_produto tp
left join tbr_produto_uneg pu on tp.pro_codigo = pu.pro_id
LEFT JOIN tb_produto_fam_grupo FG ON TP.grp_id = FG.grp_id
left join tb_produto_fam_categoria fc ON TP.cat_id = FC.cat_id
LEFT JOIN tb_fornecedor f ON TP.fab_id = F.fab_codigo
LEFT JOIN tb_produto_barra PB ON pb.pro_id = tp.pro_id
LEFT JOIN tb_produto_princativo PP ON PP.pat_id = TP.pat_id
order by CODIGO

Mesmo assim no delphi me diz que tem códigos duplicados. CODGIGO 460 E TEM OUTROS. O QUE MAIS EU FAÇO?

Insert into PRODUTOS (CODIGO, CODBARRAS, CODIGONCM, DESCRICAO, UNIDADE, QUANTIDADE, PRECOVENDA, REFERENCIA, PRECOVENDA2, DTCADASTRO, QTDEPRECOVENDA, QTDEPRECOVENDA2, QTDEPRECOPROMOCAO, DESCONTOVINCULADOVENDA, DESCONTOVINCULADOVENDA2, DESCONTOVINCULADOPROMOCAO, CODGRUPO, CODFABRICANTE, VALIDADE, PROICMS, PROPESOLIQUIDO, PROPESOBRUTO, ARREDONDAMENTOTRUNCAMENTO, PRODUCAOPROPRIATERCEIRO, FATOR, TIPOITEM, ORIGEM, PROVALORIPI, PRECOFABRICA, MVAFORAUF, MVADENTROUF, FARQUANTIDADE, PERCTRANSPARENCIAFISCAL, PERCTRANSPARENCIAFISCALEST, PERCTRANSPARENCIAFISCALMUN, ATUALIZARPRECOSONLINE, PROQUANTIDADEPORVOLUME, FATORMETRO, CEST, COMISSAOPROFISSIONAL) values (460, ''7896523207919'', ''30049077'', ''CETOCONAZOL 20MG CR 30G CIMED '', ''UN'', 1, 19.33, ''CETOCONAZOL '', 0, ''12/04/2021'', 0, 0, 0, 0, 0, 0, 8, 156, 0, 0, 0, 0, ''A'', ''T'', 0, ''00'', ''0'', 0, 0, 0, 0, 0, 0, 0, 0, ''S'', 0, 0, ''1300200'', 0);
Insert into PRODUTOS (CODIGO, CODBARRAS, CODIGONCM, DESCRICAO, UNIDADE, QUANTIDADE, PRECOVENDA, REFERENCIA, PRECOVENDA2, DTCADASTRO, QTDEPRECOVENDA, QTDEPRECOVENDA2, QTDEPRECOPROMOCAO, DESCONTOVINCULADOVENDA, DESCONTOVINCULADOVENDA2, DESCONTOVINCULADOPROMOCAO, CODGRUPO, CODFABRICANTE, VALIDADE, PROICMS, PROPESOLIQUIDO, PROPESOBRUTO, ARREDONDAMENTOTRUNCAMENTO, PRODUCAOPROPRIATERCEIRO, FATOR, TIPOITEM, ORIGEM, PROVALORIPI, PRECOFABRICA, MVAFORAUF, MVADENTROUF, FARQUANTIDADE, PERCTRANSPARENCIAFISCAL, PERCTRANSPARENCIAFISCALEST, PERCTRANSPARENCIAFISCALMUN, ATUALIZARPRECOSONLINE, PROQUANTIDADEPORVOLUME, FATORMETRO, CEST, COMISSAOPROFISSIONAL) values (460, ''7898075315982'', ''30049077'', ''CETOCONAZOL 20MG CR 30G CIMED '', ''UN'', 1, 19.33, ''CETOCONAZOL '', 0, ''12/04/2021'', 0, 0, 0, 0, 0, 0, 8, 156, 0, 0, 0, 0, ''A'', ''T'', 0, ''00'', ''0'', 0, 0, 0, 0, 0, 0, 0, 0, ''S'', 0, 0, ''1300200'', 0);
Insert into PRODUTOS (CODIGO, CODBARRAS, CODIGONCM, DESCRICAO, UNIDADE, QUANTIDADE, PRECOVENDA, REFERENCIA, PRECOVENDA2, DTCADASTRO, QTDEPRECOVENDA, QTDEPRECOVENDA2, QTDEPRECOPROMOCAO, DESCONTOVINCULADOVENDA, DESCONTOVINCULADOVENDA2, DESCONTOVINCULADOPROMOCAO, CODGRUPO, CODFABRICANTE, VALIDADE, PROICMS, PROPESOLIQUIDO, PROPESOBRUTO, ARREDONDAMENTOTRUNCAMENTO, PRODUCAOPROPRIATERCEIRO, FATOR, TIPOITEM, ORIGEM, PROVALORIPI, PRECOFABRICA, MVAFORAUF, MVADENTROUF, FARQUANTIDADE, PERCTRANSPARENCIAFISCAL, PERCTRANSPARENCIAFISCALEST, PERCTRANSPARENCIAFISCALMUN, ATUALIZARPRECOSONLINE, PROQUANTIDADEPORVOLUME, FATORMETRO, CEST, COMISSAOPROFISSIONAL) values