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);

if sysparams["_PDF_IMAGE_DEBUG_"] then
begin
    self.Page.SetLineWidth(0.1);
    self.Page.SetRGBStroke(0.8, 0.8, 0);
    self.Page.Rectangle(X, Y, W, H);
    self.Page.Stroke();
end
end;