如何对tif文进行压缩??急!!!!!!!!!!!!!

Question

procedure TForm1.Button3Click(Sender: TObject);
var
  Parameters: TEncoderParameters;
  Value: TEncoderValue;
  Img: TGpImage;
  Clsid: TClsid;
begin
  Parameters.Count := 1;  Parameters.Parameter[0].Guid := EncoderCompression;
  Parameters.Parameter[0].NumberOfValues := 1;
  Parameters.Parameter[0].Type_ := EncoderParameterValueTypeLong;
  Parameters.Parameter[0].Value := @Value;
  
  Value := EncoderValueCompressionCCITT3;  Img := TGpImage.Create('Hb0.tif');
  try
    GetEncoderClsid('image/tiff', Clsid);    Img.Save('.\Hb1.tif', Clsid, @Parameters);  finally
    Img.Free;
  end;
end;我这样写, 始终不能将hb0.tif转换成CCITT3压缩的hb1.tif, 转成hb1.tif是空内容的