Meinst Du sinngemäß sowas? (nur hingedaddelt, sicherlich nicht 100% korrekt)
Delphi-Quellcode:
for i := 1 to AnzahlZeilen - 2 do begin
for k := i + 1 to AnzahlZeilen - 1 do begin
if Zelle[SpalteNr,i] = Zelle[SpalteNr,k] then begin
ShowMessage(Format('Zelle %d und %d sind gleich - %s = %s',[i,k,Zelle[SpalteNr,i],Zelle[SpalteNr,k]]));
end;
end;
end;