SOS!!

[Ирина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(x);
if (y-1)=n-x+1 then inc(k);
end;
1:begin
inc(y);
if(y=x) then inc(k);
end;
2:begin
dec(x);
if ((n-y)=(x-1)) then inc (k);
end;
3:begin
dec(y);
if (x=y) then inc(k);
end;
end;
end; end;
end.