Código Delphi [-] valorAnterior := .... while not eof...... if valor aterior = valoractual then.....
valorAnterior := .... while not eof...... if valor aterior = valoractual then.....