procedure TForm1.AddPage;
const
  PDFCompression: array[0..3] of TIOPDFCompression = (ioPDF_RLE, ioPDF_G3FAX2D, ioPDF_G4FAX, ioPDF_JPEG);
  PSCompression: array[0..3] of TIOPSCompression = (ioPS_RLE, ioPS_G3FAX2D, ioPS_G4FAX, ioPS_JPEG);
begin
  case RadioGroup1.ItemIndex of
    0:
      begin
        // Adobe PDF
        ImageEnView1.IO.Params.PDF_Compression := PDFCompression[ComboBox2.ItemIndex];
        ImageEnView1.IO.SaveToPDF;
      end;
    1:
      begin
        // PostScript (PS)
        ImageEnView1.IO.Params.PS_Compression := PSCompression[ComboBox2.ItemIndex];
        ImageEnView1.IO.SaveToPS;
      end;
  end;
end;