# Code Samples - Neevia PDFcompress

## Example 1: Compress a PDF file (high image quality, low compression) - Delphi Copy

To compress a PDF from Delphi download Neevia PDF compress and install it on your Windows machine then use the code below.
It will compress each page in the input PDF document and at the same time preserve the image quality.
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28  uses ComObj; ..... procedure TForm1.Button1Click(Sender: TObject); var NVcomp : Variant; retVal : Integer; begin NVcomp := CreateOleObject('PDFcompress.Neevia'); NVcomp.CI := 'jpx'; NVcomp.CQ := 75; NVcomp.GI := 'jpx'; NVcomp.GQ := 75; NVcomp.MI := 'jbig2l'; NVcomp.MQ := 5; // For better compression uncomment the line below // NVcomp.CreateObjectStreams := true; retVal := NVcomp.CompressPDF('c:\in.pdf', 'c:\out.pdf'); if retVal <> 0 then Application.MessageBox(PChar('Error code=' + IntToStr(retVal)),'',0) else Application.MessageBox('Done','',0); end;