Заполнить матрицу по спирали

procedure TForm1.Button1Click(Sender: TObject);
var a:array of array of integer;
    m,k,r,i,j : integer;
begin
val(Edit1.Text,m,i);
if(i<>0)or(strtoint(edit1.Text)<2) then
 begin
  ShowMessage('Неверный ввод размера, повторите ввод');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
StringGrid1.ColCount:=m;
StringGrid1.RowCount:=m;
Setlength(a,m,m);
r:=0;//расстояние от края до строки(столбца)
k:=0;//значение в ячейке 1...m*m
repeat
inc(r);
for i:=m-r downto r-1 do begin inc(k);a[m-r,i]:=k end;//влево
for i:=m-r-1 downto r-1 do begin inc(k);a[i,r-1]:=k end;//вверх
for i:=r to m-r do begin inc(k);a[r-1,i]:=k end; //вправо
for i:=r to m-r-1 do begin inc(k);a[i,m-r]:=k end; //вниз
until k=m*m;//дошли до центра
for i:=0 to m-1 do
for j:=0 to m-1 do
StringGrid1.Cells[j,i]:=IntToStr(a[i,j]);
end;