procedure SomeProcedure(Atiff: TIEMultiBitmap);
var
  DpiX, DpiY: integer;
begin
  for var i := 0 to Atiff.Count - 1 do
  begin
    Atiff.Params[i].TIFF_Compression := ioTIFF_G3FAX1D;
    Atiff.Params[i].BitsPerSample := 1;
    Atiff.Params[i].SamplesPerPixel := 1;

    if Atiff.ImageWidth[0] <> FAX_WIDTH then
      Atiff.ResampleAll(FAX_WIDTH, Atiff.ImageHeight[0], TResampleFilter.rfProjectBW);

    // make sure the DPI is set correctly
    CalculateFaxDPI(Atiff.ImageWidth[i], Atiff.ImageHeight[i], DpiX, DpiY);
    Atiff.Params[i].DpiX := DpiX;
    Atiff.Params[i].DpiY := DpiY;
  end;
  Atiff.DuplicateCompressionInfo;
end;

for i := 0 to multiBmp.Count - 1 do
  multiBmp.Proc[i].ConvertTo( ie1g, ieptFixedHalftone256, iedtOrdered8x8 );