Error al marcar duplicados en tabla

[tarco35]

Gracias....pues he probado con codigo y no me funciona... aunque teoricamente tendria que hacerlo bien.
lo he resuelto, de forma poco eficiente asi:

Código Delphi [-]
  Cd := '';
  ModuloDatos.TablaProductos.First;
  While Not ModuloDatos.TablaProductos.Eof Do Begin
    If Cd=ModuloDatos.TablaProductosFARMACO.AsString Then Begin
       ModuloDatos.TablaProductos.Edit;
       ModuloDatos.TablaProductosBORRABLE.AsBoolean := False;
       Cd := '';
       ModuloDatos.TablaProductos.First;
    End Else Begin
      Cd := ModuloDatos.TablaProductosFARMACO.AsString;
      ModuloDatos.TablaProductos.Next;
    End;
  End;