用advstringgrid隔行求和,该如何解决

用advstringgrid隔行求和
advstringgrid中隔行求和
用while语句怎么写
我原先是
function fun_UpdateSums(advsg:TAdvStringGrid):Integer;   //合计行
var
  r: Integer;
begin
  for r := 1 to advsg.RowCount - 1  do
    advsg.Floats[advsg.ColCount-1,r] :=
      advsg.RowSum(r,1,advsg.ColCount-1);
  advsg.FloatingFooter.Invalidate;
end;
求的是每行的和，现在想隔行求和，求代码怎么写？