EXCLUIR REGISTROS DUPLICADOS

Citação:

:
Bom dia,

tenho esse código que recupera os registros > 1

preciso excluir e deixar penas um registro
alguma boa pratica de fazer isso. ?

obs: db firebird

até aqui,

  SELECT
    REFERENCIA,
    COUNT(REFERENCIA) AS quantidade
FROM
    TBPRODUTO
GROUP BY
    REFERENCIA
HAVING
    COUNT(REFERENCIA) > 1 

  Delete From tbproduto t1
Where PCODIGO < (Select max(PCODIGO) From tbproduto t2 Where t1.REFERENCIA = t2.REFERENCIA);