Проблема с обходом матрицы DELPHI

[d.e.w]

Помогите пожалуйста разобраться , вот код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=0;
j:=m+1;
while(strtoint(tab.Cells[(i+1),(j-1)])=0) or(strtoint(tab.Cells[(i-1),j])=0) or(strtoint(tab.Cells[i,(j+1)])=0) do begin

while (i<=(m div 2))and (strtoint(tab.cells[(i+1),(j-1)])=0) do begin {Обход по диагонали}
Tab.Cells[i,j]:=inttostr(1);
tab.Update;
i:=i+1;
j:=j-1;
sleep(150);
end;
while (i>=1)and(strtoint(tab.Cells[i,j-1])=0) do begin {Обход влево}
Tab.Cells[i,j]:=inttostr(1);
tab.Update;
i:=i-1;
sleep(150);
end;
while (strtoint(tab.cells[(i),j+1])=0) do begin {Обход вниз}
Tab.Cells[i,j]:=inttostr(1);
tab.Update;
j:=j+1;
sleep(150);
end;
end;
end;

Проблема в том, что обход начинается не с нижнего левого угла, как должен, а с 3 столбца.