JPG-Bilder drehen

[oldmann]

Liebe Delphi Gemeinde,

ich habe ein Problem mit dem Drehen von JPG-Bildern.
Bis Delphi 6 Prof. klappte das Drehen einwandfrei.
Ab Tokyo 10.2.2 klappt das nicht mehr.
Das Programm stört sich an den auskommentierten Zeilen.
Hat jemand eine Idee was das Problem sein könnte ???

Gruß Oldmann

Delphi-Quellcode:

procedure TScannen.JPG_Bilder_drehen(Sender: TObject);
var B : TBitmap;
begin
  if Image1.Picture.Graphic is TJPEGImage then
    FJpeg := TJPEGImage(Image1.Picture.Graphic)
  else
  FJpeg := nil;
  if FJpeg <> nil then
  begin
    FJpeg.Performance := jpBestSpeed;
    if false then
    begin
//      FJpeg.AutoCMYKToRGB := false; // don't convert to RGB
      B := TBitmap.Create;
      B.Assign(FJpeg);
//      jpeg.BitmapCMYKToRGB(B, true);
      Image1.Picture.Bitmap.Assign(B);
      B.Free;
      FJpeg := nil;
    end;
  end;
  if FJpeg = nil then exit;
 // FJpeg.Transform(TJpegTransform(4 {cbTrans.ItemIndex}));
  FRect := Rect(-1,-1,0,0);
end;


procedure TScannen.SpeedButton6Click(Sender: TObject);
var MyFilesExtension:string;
begin
  MyFilesExtension := ExtractFileExt(Edit4.Text);
  If Uppercase(MyFilesExtension) = '.JPG' Then Scannen.JPG_Bilder_drehen(Sender);
end;