Borra registros duplicados en tabla ACCES
 

Hola a todos.
Tengo el siguiente problema:
Estoy intentando borrar de una base de datos todos los registros duplicados con el siguiente codigo:

//borrar duplicados.

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
  begin
     AdoQuery2.Prior;
     AdoQuery2.Edit;
  While not AdoQuery2.Eof DO begin
        P1:= AdoQuery2.FieldByName('Referencia').AsString;
        AdoQuery2.Next;
        while  P1= AdoQuery2.FieldByName('Referencia').AsString do begin
           AdoQuery2.DeleteRecords( arCurrent);
           AdoQuery2.Next;
        end;
  end;
  end;

Pero cuando lo ejecuto me da el siguiente error:
Informacion de la columna clave insuficiente o incorrecta, demasiadas filas para la actualizacion;

¿Alguien me puede hechar una mano?.

¿Se podria hacer de otra forma?

Saludos...

Tienes que tener una clave única en la tabla, aunque sea un campo autoincremental.

Un Saludo.

Saludos

Código SQL [-]
select CAMPO
  FROM tabla WHERE campo In (SELECT campo FROM 
  tabla As Tmp GROUP BY campo HAVING Count(*)>1)

Esta sentencia, te devuelve los registros repetidos. Creo con un arreglito puede puedes hacer lo que pides, sin tener que hacer dos bucles.