Try
      if Not ImportPagesIntoPDF(H_FileName_Out_PDF,H_FileName_In_PDF,H_ArrPage) Then
      Begin
          Writeln('--error 001!'+H_FileName_Out_PDF);
          Exit;
      End;
  Except
      on E: Exception do
        Writeln('---Error 002',E.Message);
  End;

  Var pdf := TIEPDFBuilder.Create();
  Try
    pdf.SaveToFile(H_FileName_Out_PDF);
  Finally
    pdf.Free();
  End;

  Try
      if Not ImportPagesIntoPDF(H_FileName_Out_PDF,H_FileName_In_PDF,H_ArrPage) Then
      Begin
          Writeln('--Error(001)'+H_FileName_Out_PDF);
          Exit;
      End;
  Except
      on E: Exception do
        Writeln('---Errror 002',E.Message);
  End;