// Save all images in the page to file for i := 0 to ImageEnView1.PdfViewer.Objects.Count - 1 do if ImageEnView1.PdfViewer.Objects[i].ObjectType = ptImage then begin bmp := TIEBitmap.Create(); if ImageEnView1.PdfViewer.Objects[i].GetImage( bmp ) then bmp.SaveToFile( 'D:\PDFTest\Object_' + i.ToString + '.png' ); bmp.Free; end;