Прошу помощи

[524td]

Вообщем, нужно выводить тотал, не могу понять почему, но у меня не выходит вывести правильный...
код.

  IF HideNull THEN
  BEGIN
    TempColumnDimOption.RESET;
    IF TempColumnDimOption.FINDSET THEN
    REPEAT
       IF ColumnDimOption=ColumnDimOption::Period THEN
       BEGIN
         Date1:=TempColumnDimOption."Period Start";
         Date2:=TempColumnDimOption."Period End";
       END;

       CASE ColumnDimOption OF
         ColumnDimOption::Element:
           element1:=TempColumnDimOption.Code;
         ColumnDimOption::"Element Group":
           elementgroup1:=TempColumnDimOption.Code;
         ColumnDimOption::Employee:
           emp1:=TempColumnDimOption.Code;
         ColumnDimOption::"Org. Unit":
           organizatunit1:=TempColumnDimOption.Code;
       END;

       SumAmount1:=CalcPayroll1(COMPANYNAME,Date1,Date2,element1,emp1,organizatunit1,elementgroup1);

       TotalSum+=SumAmount1;
    UNTIL TempColumnDimOption.NEXT=0;
  END;


  IF ((TotalSum<>0) AND HideNull) OR (NOT HideNull) THEN
  BEGIN
    xlWorkSheet.Cells.Item(i,2,FORMAT(TempLineDimOption.Code));
    xlWorkSheet.Range(ColInInteger(2)+FORMAT(i)+':'+ColInInteger(2)+FORMAT(i))._BorderAround(1,2);
    xlWorkSheet.Range(ColInInteger(2)+FORMAT(i)+':'+ColInInteger(2)+FORMAT(i)).EntireColumn.AutoFit;

    Col:=3;
    TempColumnDimOption.RESET;
    cnt:=TempColumnDimOption.COUNT;
    IF TempColumnDimOption.FINDSET THEN
    REPEAT
        IF ColumnDimOption=ColumnDimOption::Period THEN
        BEGIN
          Date1:=TempColumnDimOption."Period Start";
          Date2:=TempColumnDimOption."Period End";
        END;

        CASE ColumnDimOption OF
          ColumnDimOption::Element:
            element1:=TempColumnDimOption.Code;
          ColumnDimOption::"Element Group":
            elementgroup1:=TempColumnDimOption.Code;
          ColumnDimOption::Employee:
            emp1:=TempColumnDimOption.Code;
          ColumnDimOption::"Org. Unit":
            organizatunit1:=TempColumnDimOption.Code;
        END;

        SumAmount1:=0;

        SumAmount1:=CalcPayroll1(COMPANYNAME,Date1,Date2,element1,emp1,organizatunit1,elementgroup1);
        TotalSum+=SumAmount1;

        IF SumAmount1<>0 THEN
            xlWorkSheet.Cells.Item(i,Col,FORMAT(SumAmount1));
        xlWorkSheet.Range(ColInInteger(Col)+FORMAT(i)+':'+ColInInteger(Col)+FORMAT(i))._BorderAround(1,2);
        xlWorkSheet.Range(ColInInteger(Col)+FORMAT(i)+':'+ColInInteger(Col)+FORMAT(i)).EntireColumn.AutoFit;

        Col:=Col+1;
    UNTIL TempColumnDimOption.NEXT=0;
    i:=i+1;
xlWorkSheet.Cells.Item(i,Col-1,FORMAT(TotalSum));
xlWorkSheet.Range(ColInInteger(Col-1)+FORMAT(i)+':'+ColInInteger(Col-1)+FORMAT(i)).EntireColumn.AutoFit;
  END;
UNTIL TempLineDimOption.NEXT=0;