Error al marcar duplicados en tabla

[tarco35]

Saludos... Pretendo recorrer una tabla paradox con delphi 6 con el siguiente codigo:

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

lo que pretendo es que si al recorrer la tabla que esta ordenada por FARMACO hay 2 o mas FARMACOS iguales que marque BORRABLE a false al resto que no sean el primero.
Con este codigo me falla...
Aguien me puede decir que me esta pasando??? Gracias