type TSSectWare = class
public
    function Create();
    function Destroy();
    function Do();
    function AddElement(element: tslobj);

public
    Elements: array of tslobj;
    SectPr: SectPr;
    BaseSize: integer;
end;

function TSSectWare.Create();
begin
    {self.}Elements := array();
    {self.}SectPr := nil;
    {self.}BaseSize := 0;
end;

function TSSectWare.Do();
begin
    if ifObj({self.}SectPr) then
        {self.}BaseSize := round({self.}SectPr.DocGrid.LinePitch * 0.75);
    // println("LinePitch = {}, Type = {}", {self.}SectPr.DocGrid.LinePitch, {self.}SectPr.DocGrid.Type);
    // println("Width = {}, Height = {}", {self.}SectPr.PgSz.W, {self.}SectPr.PgSz.H);
    // println("Top = {}, Right = {}, Bottom = {}, Left = {}, Header = {}, Footer = {}\n",
    //     {self.}SectPr.PgMar.Top, {self.}SectPr.PgMar.Right, {self.}SectPr.PgMar.Bottom, {self.}SectPr.PgMar.Left, {self.}SectPr.PgMar.Header, {self.}SectPr.PgMar.Footer);
end;

function TSSectWare.AddElement(element: tslobj);
begin
    Elements[length(Elements)] := element;
end;