JPEG-Fehler #53

[Karstadt]

warum?

Delphi-Quellcode:

procedure Tf_Datenuebertragung.resizepictur(Datei, Speicherort: string; width, height: integer);
var i:integer;
    bmp:TBitmap;
    jpeg:TJpegImage;
   begin
   Jpeg:=TJpegImage.Create;
   try
   jpeg.LoadFromFile(Datei);
    bmp:=TBitmap.Create;
      try
        If jpeg.width>jpeg.Height then
         begin
          bmp.width:=width;
          bmp.height:=height;
         end else
         begin
          bmp.width:=height;
          bmp.Height:=width;
         end;
        bmp.canvas.StretchDraw(Rect(0,0,bmp.width,bmp.height),jpeg);
        jpeg.assign(bmp);
      finally
       bmp.free;
      end;
     jpeg.SavetoFile(Speicherort);
   finally
    jpeg.free;
   end;
end;