Borra registros duplicados en tabla ACCES

[manu]

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...

[marcoszorrilla]

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

Un Saludo.

[vtdeleon]

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.