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

  finally
    jpeg.free;
         end;

end;

Wenn ich die Procedure Drehen90Grad in einem Button verwende und danach Image.refresh; mache dann gehts!
warum so nicht?