Цикл произведения двух ячеек

[Ambros]

Есть таблица в ней столбцы "Количество единиц", "Цена за единицу" и "Сумма" Мне надо подсчитать сумму для каждого товара, учитывая, что Категории товаров могут добавляться.
Не сильно понимаю как правильно реализовать функцию. Додумался до такого, но естественно, что-то(возможно все) Делаю неправильно.

procedure TForm7.Button2Click(Sender: TObject);
var i,j: integer;
begin
for i := 3 to 4 do
for j := 1 to stringgrid1.rowCount - 1 do
  try
   strtoint(stringgrid1.Cells[5,j]):=strtoint(stringgrid1.cells[3,j])*strtoint(stringgrid1.cells[4,j]);
  finally

  end;

Выдает такую ошибку [DCC Error] Unit7.pas(41): E2064 Left side cannot be assigned to
Пишу на delphi

[Black Fregat]

Наоборот надо, от правой части взять IntToStr и записать в ячейку

[Serge_Bliznykov]

Сообщение от Black Fregat

Наоборот надо, от правой части взять IntToStr и записать в ячейку

проиллюстрирую:

Procedure TForm7.Button2Click(Sender: TObject);
var j: integer;
begin
  for j := 1 to stringgrid1.rowCount - 1 do
  try
   stringgrid1.Cells[5,j] := IntToStr( StrToInt(stringgrid1.cells[3,j])*StrToInt(stringgrid1.cells[4,j]));
  finally

  end;

[Ambros]

Сообщение от Black Fregat

Наоборот надо, от правой части взять IntToStr и записать в ячейку

Спасибо большое!!!