type TSPdfImageRange = class(TSPdfAbstractRange)
public
    function Do();override;
public
    Page: PdfPage;
    Image: PdfImage;
end;

function TSPdfImageRange.Do();
begin
    println("image = {}, x = {}, y = {}, w = {}, h = {}", image, x, y, w, h);
    self.Page.DrawImage(self.Image, self.X, self.Y, self.W, self.H);

{$DEFINE WordToPdfTEST}
{$IFDEF WordToPdfTEST}
    // Page.SetLineWidth(0.5);
    // Page.SetGrayStroke(0.5);
    // Page.MoveTo(0, self.Y);
    // Page.LineTo(90, self.Y);
    // Page.Stroke();
    self.Page.SetLineWidth(0.1);
    self.Page.SetGrayStroke(0.5);
    self.Page.Rectangle(0, Y, 900, H);
    self.Page.Stroke();
{$ENDIF}
end;