Bild wird nicht gedreht!

[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);
    Image1.Picture.Bitmap.PixelFormat := pf24bit;
    Drehen90Grad(Image1.Picture.Bitmap);

  finally
    jpeg.free;
         end;

end;

Danke