Fortunately, there is a simple fix. The demo project has a small defect.
if dlgSaveImage.Execute() = False then
ImageEnView1.PdfViewer.ExportPages( dlgSaveImage.Filename , ImageEnView1.PdfViewer.PageIndex, 1 )
Remove = False ;)
if dlgSaveImage.Execute() then
ImageEnView1.PdfViewer.ExportPages( dlgSaveImage.Filename , ImageEnView1.PdfViewer.PageIndex, 1 )