Вектор (Delphi 7)

[Berus]

Выдает ошибку ''is not a valid integer value....
Никак не пойму что не так..
Дан целочисленный вектор А(n). Подсчитать количество нулевых элементов вектора,
предшествующих последнему максимальному элементу.


[ CODE ]
procedure TForm1.Button2Click(Sender: TObject);

var a:array[1..100] of real;
mx,my:integer;
count:integer;
i,n:integer;
begin
Form2.show;
n:=StrToInt(Form1.Edit1.Text);
for i:=1 to n do
begin
a:= StrToInt(Form1.StringGrid1.Cells[ i,0]);
end;
mx:=1;
for i:=1 to n do
if a>=a[mx] then mx:=i;
count:=0;
for i:=1 to mx do
if a=0 then count:=count+1;
Form2.Edit1.Text:=IntToStr(count);
end;

[ / CODE ]

[Mad_Cat]

пусто либо тут

Form1.Edit1.Text

но скорее всего тут

Form1.StringGrid1.Cells[ i,0]