select yourTable.*,count(*) as cnt
from yourTable
group by <список полей, которые должны указывать, что запись уникальна внутри таблицы>
having count(*) > 1
into cursor temp_table

select temp_table
scan
  select yourTable
  locate for <список полей, которые должны указывать, что запись уникальна внутри таблицы> = <поля из temp_table>
  if found()
    delete next 1
  endif 
endscan