Qualität eines JPEG-Bildes verringern

[MrKnogge]

Hallo,

ich möchte die Qualität eines JPEG-Bildes verinngern:

Delphi-Quellcode:

var
JpegImage1: TJpegImage;
begin
  JpegImage1 := TJpegImage.Create;
  try
    JpegImage1.LoadFromFile('c:\meinbild.jpg');
    JpegImage1.CompressionQuality := 50;
    JpegImage1.Compress;
    JpegImage1.SaveToFile('c:\meinbild.jpg');
  finally
    JpegImage1.Free;
  end;
end;

Allerdings verändert sich nichts am Bild. Hab ich was übersehen, oder muss ich auf die Graphics32-Library ausweichen ?

Gruß
Christian