найдите пожалусто ошибки в листинге делфи срочно!

unit Unitl ;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms, Dialogs, Grids, StdCtrls, Buttons; type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
Label4: TLabel;
BitBtn2: TBitBtn;
Edit1: TEdit;
StringGrid1: TStringGrid;
Label6: TLabel;
Label3: TLabel;
GroupBox2: TGroupBox;
Label1: TLabel;
Label5: TLabel;
BitBtn3: TBitBtn;
Edit2: TEdit;
StringGrid2: TStringGrid;
GroupBox3: TGroupBox;
BitBtn4: TBitBtn;
Edit3: TEdit;
Edit4: TEdit;
procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation {$R *.dfm}

var b,a:array of integer; n,h,i,sum:integer;
Ê : integer;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form1.Close;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin Randomize;
N:=strtoint(editl .Text);
setlength(a,N);
sum:=0;
for i:=0 to N-1 do begin
a:=round(sin(Random(l0))* 10);
stringgrid1.cells[i,0]:=inttostr(a);
if (a mod 2 î 0) then
sum:=sum+a;
Iabel3.Caption:-Ñóììà íå÷åòíûõ ÷èñåë = '+inttostr(sum);
end;
eend;
procedure TForm1.BitBtn3Click(Sender: TObject);
var x,k: integer;
begin
k:=0;
x:=strtoint(edit2.Text);
for i:=0 to N-1 do
if a>x then begin
setlength(b,k+l);
b[k]:=i+l;
stringgrid2.cells[k,0]:=inttostr(b[k]);
k:=k+l;
end;
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
var m:integer;
begin
m:=0;
k:=strtoint(edit3.Text);
for i;=0 to N-1 do
if (a>0) and (a[i| mod k = 0) then
m:=m+l;
edit1.Text:=inttostr(m);
end;
end.