StringGrid сумма значений

[quit]

Сообщение от monushka

Ошибка все та же в том же месте...

ёмаё

var itogo: real; i,k: integer; f: double;
  begin
  itogo:=0;
  With SG1 do 
  begin
    for i:=1 to RowCount-1 do
      if TryStrToInt(Cells[7,i],k) and TryStrToFloat(Cells[5,i],f)then
        itogo:=k*f+itogo
      else ShowMessage('Введено неверное значение!');
  Edit1.Text:=FloatToStr(itogo);
end;

[monushka]

Оп, работает! Благодарю! Только почему-то условия не выполняются... Ошибка вылетает *введено неверное значение*, но сумму считает. Буду искать. Еще раз благодарю!

Плюсомет не работает пока...