[Alegun]

Можно, нужно добавить ещё одну переменную типа integer, напр b, потом в самом начале процедуры задать её как ноль, а в цикле... не можно проще, вот так

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
Col, Row, Sum: integer;
begin
    for Col := 0 to StringGrid1.ColCount-1 do
    begin
     Sum:= 0;
     for Row := 0 to StringGrid1.RowCount-1 do
       Sum:= Sum + StrToInt(StringGrid1.Cells[Col, Row]);
        StringGrid2.Cells[0, Col]:= IntToStr(Sum);
      end;
end;

только всё равно у второго грида четыре строки нужны, сумм 4 всего будет.