Jpegs : Qualität verringern

[ssach]

Delphi-Quellcode:

procedure JpegConvert (INPUT,OUTPUT : string; QUALITY : integer);
var
   jpg                             : TJpegImage;
begin
   jpg := TJpegImage.Create;
   try
      jpg.Loadfromfile('INPUT');
      jpg.CompressionQuality := QUALITY;
      jpg.DIBNeeded;
      jpg.Compress;
      jpg.SaveToFile('OUTPUT');
   finally
      jpg.free;
   end;
end;

Hier ist mein Code und er funzt leider nicht..!