var
  filename: string;
  io: TImageEnIO;
  bmp: TIEBitmap;
  i, count: integer;
begin
  filename := 'input.tif';

  bmp := TIEBitmap.Create();
  io := TImageEnIO.CreateFromBitmap(bmp);
  try
    io.CreatePDFFile('c:\out.pdf');
    count := IEGetFileFramesCount(filename);
    for i:=0 to count-1 do
    begin
      io.Params.ImageIndex := i;
      io.LoadFromFile(filename);
      io.SaveToPDF();
    end;
  finally
    io.ClosePDFFile();
    io.Free();
    bmp.Free();
  end;

end;