Работа с Image (Delphi)

[LilliPut]

В Image загружена картинка
простой процедурой её поворачиваем на 90 градусов.
При следущем повороте поворачивается снова оригинальная картинка, а не та, которую только что повернули. Как одной процедурой поворачивать несколько раз картинку
ночь. мозг устал

procedure TForm1.Button5Click(Sender: TObject);
begin
  Screen.Cursor := CrHourglass;
    Bmp2.Width:=Bmp.Height;
    Bmp2.Height:=Bmp.Width;
     for j := 1 to  Bmp.Height do
       for i := 1 to Bmp.Width do
        Bmp2.Canvas.Pixels [j,Bmp.Width-i+1]:=Bmp.Canvas.Pixels [i,j];
        Image1.Picture.Bitmap := Bmp2;
        Screen.Cursor := crDefault;
end;