не запускается рабочий код в дельфи

[madman797]

помогите с проблемкой , программа тупо не срабатывает , при этом никаких ошибок не выдает ((((


unit Unit1;

interface

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

type
arr=array of integer;
matr=array of arr;
TForm1 = class(TForm)
agrid: TStringGrid;
sb1: TScrollBar;
sb2: TScrollBar;
Label1: TLabel;
Label2: TLabel;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
Label3: TLabel;
Shape1: TShape;
Timer1: TTimer;
Button1: TButton;
N201: TMenuItem;
procedure frmt(g:TStringGrid);
procedure FormCreate(Sender: TObject);
procedure sb1Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
procedure sb2Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure agridMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure agridKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Timer1Timer(Sender: TObject);
procedure N201Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;a:matr;del,n,m:integer;

implementation

{$R *.dfm}

procedure TForm1.frmt(g:TStringGrid);
begin with g do begin
width:=(defaultcolwidth+2)*colcount +4;
height:=(defaultrowheight+2)*rowcou nt+4
end end;

procedure TForm1.FormCreate(Sender: TObject);
begin
frmt(agrid);
randomize;
del:=1;
doublebuffered:=true
end;

procedure TForm1.sb1Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
agrid.RowCount:=sb1.Position;
frmt(agrid)
end;

procedure TForm1.sb2Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
agrid.ColCount:=sb2.Position;
frmt(agrid)
end;

procedure TForm1.N2Click(Sender: TObject);
begin
halt
end;

procedure make(k1,k2:integer);
var i,j:integer;
begin n:=k1;m:=k2;
setlength(a,n,m);
for i:=0 to n-1 do
for j:=0 to m-1 do
a[i][j]:=random(10) end;

procedure showa(g:TStringGrid);
var i,j:integer;
begin with g do begin
colcount:=m;
rowcount:=n;
for i:=0 to n-1 do
for j:=0 to m-1 do
cells[j,i]:=inttostr(a[i][j]) end;end;


procedure TForm1.N3Click(Sender: TObject);
begin
make(sb1.position,sb2.position);
showa(agrid);
timer1.Enabled:=true
end;

function summa(t:integer):integer;
var s,i:integer;
begin s:=0;
if n<=m then
for i:=0 to n-1 do
s:=s+a[i,i]
else for i:=0 to m-1 do
s:=s+a[i,i];
result:=s end;

procedure TForm1.agridMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var r,c,t:integer;G:TGridRect;
begin
if button=mbLeft then
begin r:=agrid.row; c:=agrid.Col;
with G do begin left:=0;right:=m;
top:=r;bottom:=r end;
agrid.Selection:=g {Flag GoEditing must be set}
end;
begin r:=agrid.row; c:=agrid.Col;

end;
end;

procedure TForm1.agridKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=27 then
N3.Click
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
with shape1 do
begin top:=top+2;
left:=left-2;
del:=-del;
if del>0 then brush.Color:=clRed
else brush.Color:=clBlue; end;
end;

procedure TForm1.N201Click(Sender: TObject);
begin
showmessage('Noiia ii aeaaiiaee = '+inttostr(summa(1)));
end;

end.