Спираль от центра вправо вниз.

{$R *.dfm}
//заготовка таблицы
procedure TForm1.FormCreate(Sender: TObject);
begin
with StringGrid1 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  defaultcolwidth:=30;
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var n,x,y,k,z:integer;
begin
val(Edit1.Text,n,k);
if(k<>0)or not odd(n)or not(n in [3..15]) then
 begin
  ShowMessage('Неверно введен размер матрицы');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end; 
with StringGrid1 do
 begin
  colcount:=n;
  rowcount:=n;
 end;
//середина таблицы
x:=n div 2+1;
y:=n div 2+1;
k:=0;//номер в ячейке
for z:=1 to n*n do//количество ячеек
 begin
  StringGrid1.Cells[y-1,x-1]:=inttostr(z);
  case k mod 4 of
  0:begin
     inc(y);{вправо}
     if y=n-x+2 then inc (k);
     end;
   1:begin
     inc(x);{вниз}
     if y=x then inc(k);
     end;
   2:begin
     dec(y);{влево}
     if y=n-x+1 then inc(k);
     end;
   3:begin
     dec(x);{вверх}
     if y=x then inc(k);
     end;
    end;
 end;
end;