Jpegs : Qualität verringern

[Matze]

Ich hab's auch noch nie gemacht.

Delphi-Quellcode:

uses 
  JPEG; 

procedure KonvertiereJPEG(const FileNameVon, FileNameNach: TFileName); 
var
  jpeg: TJPEGImage;
begin
  jpeg := TJPEGImage.Create;
  try
    jpeg.CompressionQuality := 50; //100 ist Standard
    jpeg.LoadFromFile(FileNameVon);
    jpeg.Compress;   //<==================== Hier gibt's noch ein Problem!!!
    jpeg.SaveTofile(FileNameNach+'.jpg');
  finally
    jpeg.Free
  end;
end;

//Afruf:
  KonvertiereJPEG('D:\Matze.jpg', 'D:\Matze2');

aber:

jpeg.Compress; geht irgendwie (noch) nicht.