nach dem drehen speichern

[The Re@l]

Code:

procedure TForm1.FileListBox1Click(Sender: TObject);
var
  Jpeg: TJpegImage;
  bmp: TBitmap;
begin
  Jpeg:=TJpegImage.Create;
  bmp := TBitmap.Create;

  try

    jpeg.LoadFromFile(FileListBox1.FileName);
    bmp.Assign(jpeg);
    Image1.Picture.Assign(bmp);

  finally
    jpeg.free;
         end;

end;



procedure TForm1.Image1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);

begin
  
  Drehen90Grad(Image1.Picture.Bitmap);
   Jpeg.Assign(bmp);
    Image1.Picture.Assign(jpeg);
     Image1.Picture.SaveToFile(FileListBox1.FileName);

end;

hmm so bekomme ich eine Privilegierte Anweisung... was auch immer das ist.