[madiazg]

Guardar Imagen JPEG pero especificando calidad

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;