Error al marcar duplicados en tabla

[ecfisa]

Hola tarco35.

Proba de este modo:

Código Delphi [-]
  with ModuloDatos do
  begin
    TablaProductos.First;
    Cd := TablaProductosFARMACO.AsString;
    TablaProductos.Next;
    while not TablaProductos.Eof do
    begin
      if Cd = TablaProductosFARMACO.AsString then
      begin
        TablaProductos.Edit;
        TablaProductosBORRABLE.AsBoolean := False;
      end
      else
        Cd := TablaProductosFARMACO.AsString;
      TablaProductos.Next;
    end;
  end;

Saludos.