массив delphi с элементами main menu и striggrid

[elucia]

D(i)=4,7^(sin^3(x(i))+ln(x(i)^2),ес ли 5<=x(i)<=15
e^x(i)+x(i)^(1/3) если 0<x(i)<5
x(i)+3,2, если x(i)<=0 или x(i)>15

Продолжительность цикла i=1-15
Массивы d,x
Доп.условия: кол-во отрицательных элементов массива d.
наибольшее значение элементов массива x

пыталась что-то сообразить, но эта вся штука не выполняется в делфи.

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
StringGrid1: TStringGrid;
N1: TMenuItem;
x1: TMenuItem;
N2: TMenuItem;
y1: TMenuItem;
Label1: TLabel;
Edit1: TEdit;
procedure x1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure y1Click(Sender: TObject);
private
{ Private declarations }
public
n:integer;
x,d:array[1..15]of integer;

{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.x1Click(Sender: TObject);
var i:integer;

begin
for i:=1 to 15 do
x[i]:=strtoint(stringgrid1.Cells[0,i]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
stringgrid1.Cells[0,0]:='x';
stringgrid1.Cells[1,0]:='d'
end;

procedure TForm1.y1Click(Sender: TObject);
var i:integer;
xx:string;
begin
For i:=1 to 15 do begin
d[i]:=random(15);
stringgrid1.Cells[1,i]:=inttostr(d[i]);
if (5<=x[i]<=15)
then
d[i]:=exp(sin(x[i])*ln(4.7))+ln(sqr(2))
else
if 0<x[i]<5
then exp x[i]*ln(exp)+exp(1/3*ln(x[i]))
else
d[i]:=x[i]+3.2;
str(d[i]:1:2,xx);
striggrid1.cells[1,i]:='d[+inttostr(i)+]='+xx;


end;
end;
end.