Проверка данных в StringGrid1

[Леон2110]

Здравствуйте. Помогите пожалуйста написать цикл для проверки введенных данных в компоненте StringGrid1.

procedure TForm1.Button1Click(Sender: TObject);
begin
   if ((form1.StringGrid1.Cells[0,0] = '0') and (form1.StringGrid1.Cells[0,1] = '1') and (form1.StringGrid1.Cells[0,2] = '2')...и т.д...) then begin
    form2.Show
  end;
end;

В общем должно проверять, если в компоненте StringGrid1 введены цифры:

0 4 8 12
1 5 9 13
2 6 10 14
3 7 11 15

Я пока временно написал все в if и с кучей and-ов это все организовал, помогите пожалуйста написать небольшой цикл для этой проверки, потому что планируется увеличить число полей в StringGrid1 и это условие будет слишком длинное.

Начало думаю как-то так:

procedure TForm1.Button1Click(Sender: TObject);
var i,x,y : integer;
begin
for X:=0 to 3 do
for y:=0 to 3 do begin
...
  end;
end;

[Аватар]

  xOk:=True;
  for i:=0 to 15 do xOk:=xOk and (StrToIntDef(StringGrid1.Cells[i mod 4,i div 4],-1)=i);
  if xOk then ...

[Леон2110]

procedure TForm1.Button1Click(Sender: TObject);
var xOk: boolean;
i: integer;
begin
xOk:=True;
for i:=0 to 15 do
xOk:=xOk and (StrToIntDef(StringGrid1.Cells[i mod 4,i div 4],-1)=i);
  if xOk then
  form2.Show;
end;

Я что-то не так написал в коде? не работает.

[Аватар]

не работает

А, там для заполнения
0 1 2 3
4 5 и т.д.
Сделай так:

  for i:=0 to 15 do xOk:=xOk and (StrToIntDef(StringGrid1.Cells[i mod 4,i div 4],-1)=(i div 4)+(i mod 4)*4);

[Леон2110]

оо спасибо большое)) Работает отлично.