А какую ошибку пишет?
Как вариант можнт быть, что разделителем дробной и целой части у тебя точка стоит, а Delphi больше заятую любит.
P.S. Если я правильно понял суть задачи, что весь код можно заменить на
Код:
for i:=1 to 7 do
try;
stringgrid1.cells[3,i]:=floattostr(strtofloat(stringgrid1.cells[1,i])*strtofloat(stringgrid1.cells[2,i]));
except stronggrid1.cells[3,i]:='0';
end;