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