Помощь в написании кода в программе Lazarus Язык Delphi

Организовать заполнение одномерного статического массива Х десятью дробными числами в диапазоне (-5;5) с использованием генератора случайных чисел. Вывод чисел организовать с использованием компонента TStrigGrid

1. при нажатии на кнопку Button найти и вывести в текстовое поле Edit : произведение всех положительных элементных массива Х

Сам код. Ругается на memo1.lines.add(FloatToStr(x[i]); и не могу понять в чем проблема
{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
StringGrid1: TStringGrid;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Memo1Change(Sender: TObject);
private

public

end;

var
x: array[1..10] of real;
i: integer;
product: real;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

begin
for i := 1 to 10 do
begin
x[i] := Random * 10 - 5;
end;


StringGrid1.RowCount := 1;
StringGrid1.ColCount := 10;
for i := 1 to 10 do
begin
StringGrid1.Cells[i-1, 0] := FloatToStr(x[i]);
end;


product := 1;
for i := 1 to 10 do
begin
if x[i] > 0 then
product := product * x[i];
end;


ShowMessage('Product of positive numbers: ' + FloatToStr(product));
end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
memo1.lines.add(FloatToStr(x[i]);
end;



end.

ругается на стринггрид