Ошибка в функции

[grafgrial]

посмотрите, где ошибка?

function TForm1.kolchet(symm: Real): Real;
var i: integer;
kyrsval:Real;
prochent:Real;
begin
for i:=1 to Form1.strngrd2.RowCount-2 do
 kyrsval:=StrToFloat(Form1.strngrd2.cells[1,i]);
 prochent:=StrToFloat(Form1.strngrd2.cells[3,i]);
Result:=symm/(kyrsval*prochent); // результат
end;

использую

procedure TForm1.N6Click(Sender: TObject);
var i: integer;
begin
for i:=1 to Form1.strngrd2.RowCount-2 do
Form1.strngrd2.cells[4,i]:=FloatToStr(kolchet(StrToInt(edt1.Text)));
end;

Выдает ошибку при запуске функции
Project chet.exe raised exception class EConvertError with message'" is not a valid floating point value'. Process stopped. Use
Step or Run to continue.

[Пепел Феникса]

ячейка пустая значит.
в тексте же все написано...

[grafgrial]

Какая ячейка?
А вообще правильно вычисляю функцию? Беру из edt1.text/(первую ячейку строки i * третью ячейку строки i) и записываю в четвертую ячейку строки i

[Аватар]

Функции StrToFloat и StrToInt c не цифровым параметром дадут ошибку

[Stilet]

Уточню:
Во-первых, вместо

kyrsval:=StrToFloat(Form1.strngrd2. cells[1,i]);

Можно написать

 kyrsval:=StrToFloatDEF(Form1.strngrd2.cells[1,i],0);

Ошибки не будет, но если в ячейке не целое, просто вернет 0

Во:вторых

for i:=1 to Form1.strngrd2.RowCount-2 do
kyrsval:=StrToFloat(Form1.strngrd2. cells[1,i]);
prochent:=StrToFloat(Form1.strngrd2 .cells[3,i]);

Смысл последней строки в чем? Тут точно не нужен Begin...End? Ато получается что в цикле выполняется только взятие kyrsval, и по идее этот цикл бессмысленен ибо может быть заменен на

with  Form1.strngrd2 do
 kyrsval:=StrToFloat(cells[1,RowCount-2]);