Генерация лабиринта в Delphi

[dancer1]

Привет всем, вот встала задачка написать генератор лабиринта, литературы прочитал тонну но видимо что-то не учел и не полчается.
Получается две кардинаты формировния вспомогаетльных точек, их я записываю в массив, но почемуто когда вытягиваю у меня выход за границы грида происходит и не чертит нифига.
Каждый этап лабиринта ращмещен в своем таймере.
Часть кода стер так как ограничение на кол-во символов стоит.
Вот код:

unit Unit1;
  private
  public
    element : string;
    Col,Row,i,j,i1,j1,m,n,rand1,rand2,count : integer;
    X : array [1..40] of integer;
    y : array [1..40] of integer;
  end;
procedure TForm1.Button5Click(Sender: TObject);
begin
timer2.Enabled := true;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
  i:= Random(56);
  j:= Random(57);
  if count = 40 then
    begin
      m := 0; Timer2.Enabled := false;
    end
    else
      begin
        StringGrid1.Cells[i,j] := 'W';
        X[m] := i; Y[m] := j;
        inc(count);inc(m);
      end;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
Timer3.Enabled := true;
end;
procedure TForm1.Timer3Timer(Sender: TObject);
begin
StringGrid1.Cells[X[m+1],Y[m+1]]:='W'; //тут запара
end;
end.

[denisbrain]

Сообщение от Zloi Talib

Ну ты вообще какой умный!))

var w,x,y:integer;
begin
x:=0;y:=0;w:=0;
  form1.StringGrid1.cells[x,y]:='w';
repeat
  if w=0 then x:=x+1;
  if w=1 then x:=x-1;
  if (x=(form1.StringGrid1.colcount-1)) then begin y:=y+2;
  w:=1;
  end;
  if x=0 then begin
  w:=0;
  y:=y+2;
  end;
   form1.StringGrid1.cells[x,y]:='w'
  until y>=form1.StringGrid1.rowcount;

[dancer1]

спасибо всем буду пробовать

[dancer1]

хм, получается не то что нужно...

[denisbrain]

Сообщение от dancer1

хм, получается не то что нужно...

http://forum.spark-media.ru/index.ph...0%D0%BB%D0%B5/