выдает ошибку "is not a valid integer value'.

[Марфа23]

Помогите пожалуйста. уже не знаю, где искать эту ошибку. вроде все верно, но выбивает "is not a valid integer value'
Задача звучит так : По данным о месячных объемах фактически привлеченных средств во вклады филиалами банка за отчетный период найдите следующее: • общую сумму привлеченных средств филиалами банка; • среднюю сумму привлеченных средств за те месяцы, когда привлекалось средств меньше заданного значения.
Надо именно написать в массиве.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
n: integer; 
norma: integer;
a: array[1..20] of integer; 
Po: real; 
Ps: real; 
i: integer; 
begin
n:=StrToInt(Edit1.Text);
norma:=StrToInt(Edit4.Text);
for i:=1 to n do
a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);
Po:=0;
for i:=1 to n do
if a[i]<norma
then
Po:=Po+a[i];
Edit2.Text:=FloatToStr(Po);
Ps:=Po/n;
Edit3.Text:=FloatToStr(Ps);
end;



procedure TForm1.Edit1Change(Sender: TObject);
var
 n: integer;
begin
n:=StrToInt(Edit1.Text);
  StringGrid1.ColCount:=n;
end;

end.

[Alar]

а отладчик ещё и строчку подсвечивает где ошибка

[type_Oleg]

"is not a valid integer value' - значит у вас в поле Edit1 или Edit4 - пусто. Или в какой-то ячейке StrToInt. Там, где должно быть целое число., когда нажимаете Button.

[Марфа23]

Нет, она компилируется без ошибок, но когда вводишь значения и нажимаешь кнопку рассчитать, выдает ошибку

Я вожу значения в Edit1 и в Edit4, когда нажимаю Button выдает ошибку

[Alex11223]

А в ячейках таблицы? Вы ж числа читаете не только из Edit'ов, но и из StringGrid.

Нет, она компилируется без ошибок, но когда вводишь значения и нажимаешь кнопку рассчитать, выдает ошибку

Это не ошибка, а исключение (Exception), и обычно Дельфи показывает на какой строке оно произошло (если нажать кнопку Break или типа того).

[type_Oleg]

У меня там очепятка. Хотел написать StringGrid, а написал StrToInt.

Кстати, про StrToInt - лучше вместо него использовать StrToIntDef, и в качестве дефолт-значения что-нибудь невозможное, чтобы ошибку сразу видно было.