Exception bei der JPEG Kompremierung

[sausi]

Hallo,
ich habe mal die ganze Funktion unten aufgeführt, damit man sieht wo was herkommt.

'image1' ist ein TImage Objekt in einer Form.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  xJPEGImage    : TJPEGImage;
begin
  xJPEGImage:=TJPEGImage.Create;
  OpenDialog1.Execute;
  xJPEGImage.LoadFromFile(OpenDialog1.FileName);
  xJPEGImage.CompressionQuality:=5;
  xJPEGImage.Smoothing:=Not xJPEGImage.Smoothing;
  xJPEGImage.Compress;
  image1.Picture.Bitmap.Assign(xJPEGImage);
  xJPEGImage.Free;
end;

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