Пересчет значений при вводе в StringGrid

[Gover]

День добрый.
Нужен совет, никак не соображу что можно придумать.
Есть StringGrid. Первый столбец заполняется при изменении комбобокса, во второй столбец пользователь вводит данные, третий столбец должен автоматом просчитываться при вводе данных, как произведение 1 и 2 столбца.

[Прик]

У TStringGrid есть событие OnSetEditText.
Событие это работает так же как OnChange в TEdit.
В процедуру, обрабатывающую это событие передается изменяемое значение ячейки и ее координаты.
По этим параметрам можно определить в каком столбце и строке меняется значение и сделать пересчет. Правда, придется проверять корректность ввода ( чтобы в ячейке было число) и преобразовывать строковые представления чисел в само число, затем, после пересчета, обратно, что поместить в ячейку третьего столбца.

[Gover]

Я так пробовал, но мне дает ошибку при изменении данных в ячейке.

[Прик]

Какие числа в ячейках: только целые или могут быть вещественные?
Как "так пробовал"?
Какая ошибка?

Для целых чисел:

procedure TForm1.SGSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String);
var
  F1, F2 : Integer;
begin
  if ACol = 1 then begin
    if not TryStrToInt(Value, F1) or not TryStrToInt(SG.Cells[0, ARow], F2) then Exit;
    SG.Cells[2, ARow] := IntToStr(F1 * F2);
  end;
end;

Где SG - TStringGrid
Расчет работает и нет никаких ошибок

[Gover]

Спасибо, цифры будут целыми.
А как можно по нажатию Enter зафиксировать ввод и перейти на ячейку ниже?

[Прик]

Например, так:

procedure TForm1.SGKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_RETURN) and (SG.Row < SG.RowCount-1) then
    SG.Row := SG.Row + 1
end;

В процедуре обработки события от клавиатуры (OnKeyDown).