Exception bei der JPEG Kompremierung

[sausi]

Hallo,
ich wollte mit Delphi 7 mal ausprobieren wie die JPEG Unterstützung ist.
Ich möchte eine Grafik laden und bei dieser die Kompremierung ändern und das Ergebnis im Programm (TImage) anzeigen.
Dieses funktioniert soweit, bis auf die Kompremierung.
Immer, wenn ich xJPEGImage.Compress in den Code Einfüge erhalte ich beim Ausführen die Meldung:
... eine Exception in der Klasse EJPEG ist aufgetreten. Meldung JPEG-Fehler #42 ...


Das von mir verwendete Code Fragment ist folgender:

Delphi-Quellcode:

      OpenDialog1.Execute;
      xJPEGImage.LoadFromFile(OpenDialog1.FileName);
      xJPEGImage.CompressionQuality:=5;
      xJPEGImag e.Smoothing:=Not xJPEGImage.Smoothing;
      xJPEGImage.Compress;
      image1.Picture.Bitmap.Assign(xJPEGImage);

Ich hoffe jemand kann mir helfen

Gruß
Sausi

[edit=sakura]Delphi-Tags gesetzt. Mfg, sakura[/edit]