заполнить stringgrid по принципу судоку

[Труба]

заполнить stringgrid по принципу судоку.
for i:=0 to 8 do
for j:=0 to 8 do
Strngrd1.Cells[i , j]:=inttostr(random(9)+1);
repeat
for i:=0 to 8 do
if strngrd1.Cells[i,0]=strngrd1.Cells[i,0] then
Strngrd1.Cells[i,0]:=inttostr(random(9)+1);
until
strngrd1.Cells[i,0]<>strngrd1.Cells[i,0]; (эта строчка ему не нравится)

думала проверять каждую строку, а потом каждый столбец. но что-то программа зависает

[Smogg]

strngrd1.Cells[i,0]<>strngrd1.Cells[i,0]

Вы сравниваете переменную саму с собой.

[Труба]

сравниваю элементы первой строки. они не должны равняться. но я так понимаю, каждый элемент сравнивается не только с другими элементами, но и сам с собой, поэтому все это неправильно. но я что-то не знаю как сделать правильно