[Black Raider]

тогда вот так:

Код:

var
  i: integer;
begin
label1.Caption:='0';
for i:=0 to stringgrid1.Colcount-1 do
begin
label1.Caption:=inttostr(strtoint(label1.Caption)+strtoint(stringgrid1.cells[i,0]));
end;
end;