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