Guardar Imagen JPEG pero especificando calidad

[gulder]

Hola foro como andad Espero y bien, bueno vamos al grano dijo la gallina , como hago para que al momento de guardar una imagen, se pueda especificar la calidad de la misma gracias de antemano gulder

[ixMike]

Código Delphi [-]
var
J: TJPEGImage;
begin
J:=TJPEGImage.Create;
J.Assign(Image1.Picture);
J.CompressionQuality:=25; //25% de calidad
J.Compress;
J.SaveToFile('C:\SeVeMedioBien.jpg');
J.Free;

Salu2

[gulder]

hombre ixMike gracias por la respuesta salu2