[angvelem]

И в чём проблема?

Код:

var
  I, J : Integer;
begin
  J := 0;
  for I := 0 to 3 do
    J := J + StrToIntDef(SG1.Cells[1, I], 0);
  Edit1.Text := IntToStr(J);

  J := 0;
  for I := 0 to 4 do
    J := J + StrToIntDef(SG2.Cells[I, 1], 0);
  Edit2.Tetx := IntToStr(J);
end;