[Kailon]

var
x,o,z,n:integer;
begin
x:=StringgridObRashod.rowCount;
o:=0;
repeat
begin
LabelItogRashod.caption:=labelItogRashod+stringgri dObRashod.cells[1,StringGridObRashod.RowCount];
end;
until x>=StringGridObRashod.rowCount;

Уйдешь в бесконечный цикл, потому что "х" не меняет своего значения

слушай а как можно сосчитать все значения в столбце

Задаешь цикл от нулевой до последней строки таблицы и все

Код:

Summ := 0;
for i := 0 to StringGrid.RowCount - 1 do
  Summ := Summ + StrToIntDef(StringGrid.Cells[1, i], 0); //где StringGrid.Cells[столбец, строка]
Label1.Caption := IntToStr(Summ);