Mehrseitige Tabelle mit Übertragszeilen

// This even is triggered by the field 'PAINT_CALC'!
procedure TWPRepForm.WPFormulaInterface1TextObjectPaintCalc(
  Sender: TObject; pobj: TWPTextObj; par: TParagraph; page: TWPVirtPage;
  pagenr: Integer; textbody: TWPRTFDataBlock; var ResultText: WideString;
  PaintCanvas: TCanvas; var UseIt: Boolean);
var i, colnr : Integer;
    sum : Extended;
    tbl : TParagraph;
    list : TList;
begin
   { This is only a dem to show how values on a page can be calculated. To
     calculate values in a table you can use
       table.GetObjList }

   // We don't want to use this in the first editor!
   if Sender<>SourceText.Memo then
   try
      tbl := pobj.ParentPar.ParentTable;
      colnr := pobj.ParentPar.ColNr;
      sum := 0;
      if pobj.SOURCE='TOTALNR' then // Sum in this Column ------------------------
      begin
        list := TList.Create;
        try
          tbl.GetObjList([wpobjMergeField],list,nil,'NR');
          for i:=0 to list.Count-1 do
          //OPTION: if TWPTextObj(list[i]).ParentPar.ColNr=colnr then  //<--- only in same COLUMN!!!
          begin
            // sum := sum + StrToFloat(TWPTextObj(list[i]).EmbeddedText);
            sum := sum + TWPTextObj(list[i]).EmbeddedTextAsFloat;
          end;
        finally
         list.Free;
        end;
      end else // Sum on this page with same parent table ----------------------
      begin
        for i:=0 to page.EmbeddedObjectCount([wpobjMergeField],pobj.Source)-1 do
        if page.EmbeddedObjectGet(i).ParentPar.ParentTable=tbl then // Only sum up in same table!
        begin
         // sum := sum + StrToFloat(page.EmbeddedObjectGet(i).EmbeddedText);
         sum := sum + page.EmbeddedObjectGet(i).EmbeddedTextAsFloat;
        end;
      end;

      ResultText := FloatToStr(sum);
      UseIt := TRUE;
   except
      ResultText := 'ERR';
      UseIt := TRUE;
      if PaintCanvas<>nil then
         PaintCanvas.Font.Color := clRed;
   end;
end;