[Restart]

Сообщение от M.A.D.M.A.N.

а надо сверху вниз и слева направо.

Так?

Код:

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, Row]:= IntToStr(Sum);
    end;
end;

не работает