Memory pb with extractFilepages

I have a big file 126000 pages
I must separate pages of this file
After 22% of traitement i have a memory problem.
Can you help me?

Thank you, Oliver

==================================================================
My procedure
==================================================================
Procedure tFRM_MAIN.WriteNewFile(pgfirst,pglast:integer);
Var
   FName  : String;
   outpdf : TQuickPDF0723;
Begin
   inc(nbfic);
   Plage := intToStr(pgfist)+'-'+intTostr(pglast);

   { FileName  : destination }
   fname := PREFIX +
            matricule + '_' +
            annee + '_' +
            FormatFloat('00000',nbFile)+
            '.pdf';

   { Extraction}
   outpdf := TQuickPDF0723.create;
   outpdf.UnlockKey(QPDFLicence);
   err := OutPdf.ExtractFilePages(Copie,    // source File
                                                    fName,   // Destination File
                                                    Plage);  
   FreeAndNil(outpdf);

   { Index }
   write(findex,mat+';'+name+';'+year+';'+FormatFloat('0000',nbFile)+';');
   if err = 0 then
   Begin
      writeln(findex,'Error');
      ShowMessage('Error '+intToStr(pdf.lastErrorCode));
   End Else writeln(findex,'');
End;

Sounds great that you found the solution.