求缩略图创建算法。(50分)

用StretchDraw生成的缩略图有较大的像素像素损坏，但如果用photoshop等软件创建立的缩略图就有较好的效果。
请高手指点！

var
encoderParameters: TEncoderParameters;
jx:integer;
begin

jx:=75;
encoderParameters.Count:=1;
encoderParameters.Parameter[0].Guid := EncoderQuality;
encoderParameters.Parameter[0].Type_ := EncoderParameterValueTypeLong;
encoderParameters.Parameter[0].NumberOfValues := 1;

encoderParameters.Parameter[0].Value := @jx;
.......

ShowMessage(GetStatus(ImgD.save('C:/1.jpg',EClsid,@encoderParameters)));

需要传图像质量等一些参数