delphi 图像处理 图像左旋右旋

procedure TDR_QM_ZP_Form.btn_ZXClick(Sender: TObject);
//图像左旋
begin

  screen.Cursor := crhourglass;
  my_int3 := my_int3 + 1;
  FL_bmp_rotate( Original_Bmp1 , Image1.Picture.Bitmap,  my_int3);
  screen.Cursor := crdefault; //把鼠标指针恢复成缺省状态。

end;

my_int3 := my_int3-1; 为右旋；