function T_Entrega.RenFilesToPDF(const StartDir: String): Boolean;
var
  sr: TSearchRec;
  Res: Integer;
  _page : SmallInt;
begin
  Res := FindFirst(BackSlash(StartDir) + '*.tif', faAnyfile, sr );

  if Res = 0 then

  try
    while res = 0 do begin
      if (sr.Attr and faDirectory <> faDirectory) then

        with ImageEnView1.IO do begin

          Params.PDF_PaperSize := IEStrToPaperSize('A4', iepA4);
          Params.PDF_Compression := ioPDF_G4FAX;

          CreatePDFFile(BackSlash(DirLotesDest) + ChangeFileExt(sr.name, '.pdf'));

          ImageEnView1.Blank;
          LoadFromFile(BackSlash(DirLotesDest) + sr.Name);

          for _page := 0 to Params.TIFF_ImageCount - 1 do begin
            Params.TIFF_ImageIndex := _page;
            SaveToPDF;
          end;

          ClosePDFFile;
        end;

      ImageEnView1.ClearAll;
      Res := FindNext(sr);

  end;
  finally
    FindClose(sr)
  end;
  Result := True;
end;

function TForm1.RenFilesToPDF(const StartDir: String): Boolean;
var
  sr: TSearchRec;
  Res: Integer;
  _page : SmallInt;
begin
  Result := False;
  Res := FindFirst( StartDir + '*.tif', faAnyfile, sr );

  if Res = 0 then
  try
    while res = 0 do
    begin
      if (sr.Attr and faDirectory <> faDirectory) then
        with ImageEnView1.IO do
        begin
          Params.PDF_PaperSize := IEStrToPaperSize('A4', iepA4);
          Params.PDF_Compression := ioPDF_G4FAX;

          CreatePDFFile( StartDir + ChangeFileExt(sr.name, '.pdf'));

          ImageEnView1.Blank;

          // Reset index to load
          Params.TIFF_ImageIndex := 0;
          LoadFromFile( StartDir + sr.Name);

          for _page := 0 to Params.TIFF_ImageCount - 1 do
          begin
            Params.TIFF_ImageIndex := _page;
            // Need to reload if we changed the index
            if _page > 0 then
              LoadFromFile( StartDir + sr.Name);
            SaveToPDF;
          end;

          ClosePDFFile;
          Result := True;
        end;

      ImageEnView1.ClearAll;
      Res := FindNext(sr);
    end;
  finally
    FindClose(sr)
  end;
end;