PDFSaveUseDPI Example for Delphi

var
   RasterIO: LEADRasterIO;
begin
   RasterIO:= CreateComObject(CLASS_LEADRasterIO) as LEADRasterIO;
   //Use image DPI when saving as PDF
   RasterIO.PDFSaveUseDPI:= True;
   //Save image as Raster PDF with CCITT G4 compression
  RasterIO.Save(LEADRasterView1.Raster,
                   WideString('c:\temp\tmp.pdf'),
                   FILE_RAS_PDF_G4, 1,
                   1, SAVE_OVERWRITE);
end;