[Alegun]

Сообщение от Restart

Может немного японского тогда?

Можно хоть на суахили, только тогда и второй грид извратить немного тоже нужно, расположив его под первым гридом и изменив кол-во строк до одной, а столбцов до 4х.

Код:

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