Сумма в ячейках StringGrid

[query.1]

Извиняюсь что создаю подобную тему, ибо ответа нужного так и не нашёл. Суть такова: есть таблица в StringGrid уже с фиксированными данными, в шестой [6,i] колонке нужно посчитать сумму [3,i], [4,i], [5,i] при условии:
[3,i] = 50
[4,i] = 30
[5,i] = 40

Собственно, такие действие в таблице нужно сделать неоднократно. Желательно код всей процедуры кнопки.

[Serge_Bliznykov]

Сообщение от query.1

при условии

при каком условии??

Сообщение от query.1

Желательно код всей процедуры кнопки.

примерно так:

var sum : integer;
 i,j : integer;
begin
   for i:=StringGrid1.FixedRow to StringGrid1.RowCount-1 do begin
      sum := 0;
      for j:= 3 to 5 do sum := sum + StrToIntDef( StringGrid1.Cells[j,i],0 );
      StringGrid1.Cells[6,i] := IntToStr(sum);
   end;
end;