var
  Image:        TIETIFFHandler;
  Stream:       TStream;
  Bitmap:       TIEBitmap;
  IO:           TImageEnIO;

begin
....
        Image  := TIETIFFHandler.Create;
        Stream := TMemoryStream.Create;
        Bitmap := TIEBitmap.Create;
        IO     := TImageEnIO.CreateFromBitmap(Bitmap);
        try
          if not Image.ReadFile(List[i]) or (Image.GetPagesCount <= 0) then
            raise Exception.Create('Fehler beim Lesen von Datei.');

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

            // JPEG Quality 25%
            IO.Params.TIFF_Compression    := ioTIFF_JPEG;
            IO.Params.TIFF_JPEGQuality    := 25;

            Stream.Size := 0;
            IO.SaveToStreamTIFF(Stream);
            Stream.Position := 0;
            if not Image.InsertPageAsStream(Stream, i2) then
              raise Exception.CreateFmt('Seiten-Speicherfehler (%d)', [i2]);
          end;

          try
            Image.WriteFile(Temp);
            TFile.SetLastWriteTimeUtc(Temp, TFile.GetLastWriteTimeUtc(List[i]));
          except
            on E: Exception do
              raise Exception.Create('Fehler beim Speichern der Datei.' + E.Message);
          end;
        finally
          Image.Free;
          Stream.Free;
          Bitmap.Free;
          IO.Free;
        end;
....
end;

quote:

---

yes, but the file of the bigger size turns out, in properties is written "without compression"

---

var
  InImage,
  OutImage :    TIETIFFHandler;
  Stream:       TStream;
  Bitmap:       TIEBitmap;
  IO:           TImageEnIO;
  i2: Integer;
begin
  InImage  := TIETIFFHandler.Create;
  OutImage  := TIETIFFHandler.Create;
  Stream := TMemoryStream.Create;
  Bitmap := TIEBitmap.Create;
  IO     := TImageEnIO.CreateFromBitmap(Bitmap);
  try
    if not InImage.ReadFile(In_File) or (InImage.GetPagesCount <= 0) then
      raise Exception.Create('Fehler beim Lesen von Datei.');

    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('Seiten-Ladefehler (%d)', [i2]);

      // JPEG Quality 25%
      IO.Params.TIFF_Compression    := ioTIFF_JPEG;
      IO.Params.TIFF_JPEGQuality    := 25;

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

    try
      OutImage.WriteFile(Out_File);
      TFile.SetLastWriteTimeUtc(Temp, TFile.GetLastWriteTimeUtc(List[i]));
    except
      on E: Exception do
        raise Exception.Create('Fehler beim Speichern der Datei.' + E.Message);
    end;
  finally
    InImage.Free;
    OutImage.Free;
    Stream.Free;
    Bitmap.Free;
    IO.Free;
  end;
end;