function TEnDoc.CleanupPDFPage(AOpts: TRecCleanupOptions; APageNo: Integer = 0): TRecCleanupResult;
var
  i: Integer;
  B: TBitmap;
  oPDF: TPdfObject;
begin
  Result := TRecCleanupResult.Create;
  if (AOpts <> []) then
  begin
    SelectPage(APageNo);
    if (CurrentPage > 0) then
    begin
      for i := 0 to FViewer.PdfViewer.Objects.Count - 1 do
      begin
        oPDF := FViewer.PdfViewer.Objects[i];
        if (oPDF.ObjectType = ptImage) then
        try
          B := oPDF.GetImage;
          try
            Result := EN_CleanupBitmap(B, AOpts);
            oPDF.SetImage(B);
            FViewer.PdfViewer.ReloadPage;
          finally
            B.Free;
          end;
          FModified := True;
        except  end;
        break; //NOTE: We are only going to clean if One image on page.
      end;
    end;
  end;
end;

procedure TfrmMain.Button3Click(Sender: TObject);
var
  i: Integer;
  B: TBitmap;
  oPDF: TPdfObject;
  FViewer: TImageEnView;
begin
  OpenFile( 'D:\Testing_Multimedia\PDF\ColorTest.pdf' );
  FViewer := ImageEnView1;

  for i := 0 to FViewer.PdfViewer.Objects.Count - 1 do
  begin
    oPDF := FViewer.PdfViewer.Objects[i];
    if (oPDF.ObjectType = ptImage) then
    try
      B := oPDF.GetImage;
      try
        // Result := EN_CleanupBitmap(B, AOpts);
        oPDF.SetImage(B);
        FViewer.PdfViewer.ReloadPage;
      finally
        B.Free;
      end;
    except
      Raise;
    end;
    //break; //NOTE: We are only going to clean if One image on page.
  end;
end;

// Reduce the size of the PDF file by lowering the quality of the images (B is a TIEBitmap)
for i := 0 to ImageEnView1.PdfViewer.Objects.Count - 1 do
begin
  oPDF := ImageEnView1.PdfViewer.Objects[i];
  if (oPDF.ObjectType = ptImage) then
  begin
    B := TIEBitmap.Create();
    try
      if oPDF.GetImage( B ) then
      begin
        B.Resample( 0.5 );
        oPDF.SetImage(B);
       end;
    finally
      B.Free;
    end;
  end;
end;
ImageEnView1.PdfViewer.ReloadPage();

// Same as above but B is a TBitmap (must add iexHelperFunctions to your uses clause for TBitmap.Proc)
for i := 0 to ImageEnView1.PdfViewer.Objects.Count - 1 do
begin
  oPDF := ImageEnView1.PdfViewer.Objects[i];
  if (oPDF.ObjectType = ptImage) then
  begin
    B := oPDF.GetImage();
    if B <> nil then
    try
      B.Proc.Resample( 0.5 );
      oPDF.SetImage(B);
    finally
      B.Free;
    end;
  end;
end;
ImageEnView1.PdfViewer.ReloadPage();