Помогите с кодом! Нужно сделать так чтобы матрица шла против часовой стрелки

[Ирина112]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, Spin;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
SpinEdit1: TSpinEdit;
procedure Button1Click(Sender: TObject);
procedure SpinEdit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
n,m:integer;

implementation

{$R *.dfm}

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
StringGrid1.RowCount:=SpinEdit1.Val ue;
StringGrid1.ColCount:=SpinEdit1.Val ue;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
n,x,y,k,z:Integer;
begin
n:=Stringgrid1.ColCount;
x:=(n div 2+1) ;y:=(n div 2+1);
k:=0;
for z:=1 to n*n do
begin
Stringgrid1.cells[x-1,y-1]:=IntToStr(z);
case k mod 4 of
0:begin
inc(y);
if y=x+1 then inc(k);
end;
1:begin
dec(x);
if(n-x+1)=y then inc(k);
end;
2:begin
dec(y);
if x=y then inc (k);
end;
3:begin
inc(x);
if y=(n-x+1) then inc(k);
end;
end;
end;
end;
end.