InImage  := TIETIFFHandler.Create;
    OutImage  := TIETIFFHandler.Create;
    Stream := TMemoryStream.Create;
    Bitmap := TIEBitmap.Create;
    IO     := TImageEnIO.CreateFromBitmap(Bitmap);
    try
      if not InImage.ReadFile(source) or (InImage.GetPagesCount <= 0) then
        raise Exception.Create('Error reading file');

      for i2 := 0 to InImage.GetPagesCount - 1 do
      begin
        Stream.Size := 0;
        InImage.WriteStream(Stream, i2);
        Stream.Position := 0;
        IO.LoadFromStream(Stream);
        if IO.Aborting then
          raise Exception.CreateFmt('Page load failure (%d)', [i2]);

//        IO.IEBitmap.Resample(FAX_WIDTH, IO.IEBitmap.Height);
//        IO.Params.TIFF_Compression := ioTIFF_G3FAX1D;
//        IO.Params.DpiX := FAX_DPIX;
//        IO.Params.DpiY := FAX_DPIY;
//        IO.Params.BitsPerSample := 1;
//        IO.Params.SamplesPerPixel := 1;
//        IO.Params.TIFF_FillOrder := 1;

//        IO.Params.TIFF_Orientation := 1;

        Stream.Size := 0;
        IO.SaveToStreamTIFF(Stream);
        Stream.Position := 0;
        if not OutImage.InsertPageAsStream(Stream, i2) then
          raise Exception.CreateFmt('Page memory error (%d)', [i2]);
      end;

      try
        OutImage.WriteFile(dest);
      except
        on E: Exception do
          raise Exception.Create('Error saving file.' + E.Message);
      end;
    finally
      InImage.Free;
      OutImage.Free;
      Stream.Free;
      Bitmap.Free;
      IO.Free;
    end;

    tiff := TIEMultiBitmap.Create;
    try
      tiff.ParamsEnabled := True;
      tiff.Read(OpenPictureDialog1.FileName);

      tiff.Params[0].TIFF_Compression := ioTIFF_G3FAX1D;
      tiff.Params[0].BitsPerSample := 1;
      tiff.Params[0].SamplesPerPixel := 1;

      if tiff.ImageWidth[0] <> FAX_WIDTH then
        tiff.ResampleAll(FAX_WIDTH, tiff.ImageHeight[0], TResampleFilter.rfProjectBW);
      tiff.DuplicateCompressionInfo;
      tiff.Write(OpenPictureDialog1.FileName + '-new.tiff');
    finally
      tiff.Free;
    end;

    Bitmap := TIEMultiBitmap.Create;
    try
      Bitmap.ParamsEnabled := True;
      Bitmap.Read(OpenPictureDialog1.FileName);
      Bitmap.Params[0].TIFF_Compression := ioTIFF_G3FAX1D;
      Bitmap.ResampleAll(FAX_WIDTH, Bitmap.ImageHeight[0]);
      Bitmap.DuplicateCompressionInfo;
      Bitmap.Write(OpenPictureDialog1.FileName + '-new.tiff');
    finally
      Bitmap.Free;
    end;

    Bitmap := TIEMultiBitmap.Create;
    Bitmap.ParamsEnabled := True;
    Bitmap.Read(source);
//    Bitmap.Params[0].TIFF_Compression := ioTIFF_G3FAX1D;
//    Bitmap.Resample(0 ,FAX_WIDTH, Bitmap.ImageHeight[0], rfFastLinear);
//    Bitmap.DuplicateCompressionInfo;
    Bitmap.Write(dest);
    Bitmap.Free;