Заполнение ячеек таблицы по определенному правилу.

[dubsteppaman]

Добрый день, уважаемые форумчане! Знаю, возможно вы начнёте кидаться камнями и прочими тяжёлыми предметами, говоря, что 300 лет тому назад разбиралась подобная задача. Суть такова, мне нужно переделать два алгоритма для заполнения StringGrid разными способами (в данном случае по зигзагу и по спирали). Мои коды умеют делать это только для квадратных таблиц, мне бы хотелось, чтобы они умели заполнять также прямоугольные таблицы MxN. Прошу, помогите переделать (или предложите свой) код. Заранее благодарен!

//=================== "Заполнение по зигзагу" ==================
Procedure ZigZag(var m,n:integer; StringGrid1:TStringGrid; TrackBar1:TTrackBar);
  var i,j,k,q: integer;
Begin
q:=0;
  With StringGrid1 do
    begin
      m:=RowCount-1;
      n:=ColCount-1;
 
      For i:=1 to 2*n-1 do
        begin
          if i>n then k:=n else k:=i;
          if i mod 2 = 1 then
          for j:=1+i-k to k do
            begin
              inc(q);
              Cells[j,1-j+i]:=IntToStr(q);
              Delay(Trunc(1000/TrackBar1.Position));
            end
          else
            for j:=k downto 1+i-k do
              begin
                inc(q);
                Cells[j,1-j+i]:=IntToStr(q);
                Delay(Trunc(1000/TrackBar1.Position));
              end;
        end;
    MessageDlg('Таблица заполнена!', mtInformation, [mbOk], 0);
    end;
end;
 
//================ "Заполнение спиралью" ===============
Procedure Spiral(var m,n:integer; StringGrid1:TStringGrid; TrackBar1:TTrackBar);
   var i,j,k,p:integer;
Begin
i:=0;
k:=0;
p:=1;
 
  with StringGrid1 do
    begin
    m:=RowCount-1;
    n:=ColCount-1;
 
    while i<n*m do
      begin
        inc(k);
 
          for j:=k to m-k+1 do
            begin
              inc(i);
              Cells[j,k]:=IntToStr(p);
              inc(p);
              Delay(Trunc(1000/TrackBar1.Position));
            end;
 
          for j:=k+1 to n-k+1 do
            begin
              inc(i);
              Cells[m-k+1,j]:=IntToStr(p);
              inc(p);
              Delay(Trunc(1000/TrackBar1.Position));
            end;
 
          for j:=m-k downto k do
            begin
              inc(i);
              Cells[j,n-k+1]:=IntToStr(p);
              inc(p);
              Delay(Trunc(1000/TrackBar1.Position));
            end;
 
          for j:=n-k downto k+1 do
            begin
              inc(i);
              Cells[k,j]:=IntToStr(p);
              inc(p);
              Delay(Trunc(1000/TrackBar1.Position));
            end;
    end;
    MessageDlg('Таблица заполнена!', mtInformation, [mbOk], 0);
  end;
end;