const
  PDF_Folder = 'D:\Album_Images';
  Fail_On_Unsupported_Image = True;
var
  ssImages: TStringList;
begin
  // Create PDF from all images in D:\Album_Images
  ssImages := TStringList.Create();
  GetAllFiles( PDF_Folder, ssImages );
  if IECreatePDFFromFileList( 'D:\MyNewPDF.pdf',
                              ssImages,
                              iepAuto, // Page matches size of the image
                              ioPDF_JPEG,
                              'My Cool PDF',
                              'Mr Developer',
                              0, // no margins
                              True, Fail_On_Unsupported_Image ) = False then
      raise Exception.create( 'Cannot create PDF' );
  ssImages.Free();
end;