как определить в StringGrid строку, в которой нет одинаковых элеметов

[Blue Sky]

for j:=0 to StringGrid1.ColCount-2 do
if (strtoint(StringGrid1.Cells[j,i])=strtoint(StringGrid1.Cells[j+1,i])

не вариант, т.к сравнивает только соседние ячейки

for j:=0 to StringGrid1.ColCount-1 do
 d:=0 to StringGrid1.ColCount-1 do
if (strtoint(StringGrid1.Cells[j,i])=strtoint(StringGrid1.Cells[d,i])

Вообще не выходит
Подскажите,пожалуйста, как тогда)

[SERG1980]

for j:=0 to StringGrid1.ColCount-2 do
 d:=j+1 to StringGrid1.ColCount-1 do
if (strtoint(StringGrid1.Cells[j,i])=strtoint(StringGrid1.Cells[d,i])

[Blue Sky]

Спасибо)
________