type TSPdfRectRange = class(TSPdfAbstractRange)
public
    function Do();override;
public
    Page: PdfPage;
end;

function TSPdfRectRange.Do();override;
begin
    // self.Page.SetRGBStroke(1.0, 0.0, 0.0);
    self.Page.SetGrayStroke(0.5);
    self.Page.SetLineWidth(0.5);
    self.Page.Rectangle(self.X, self.Y - self.H, self.W, self.H);
    self.Page.Stroke();
    self.Page.SetGrayStroke(0);
end;