图片缩放

        BiliX:=40 /  UseB.Width ;
        BiliY:=40  / UseB.Height ;

        if BiliX < BiliY
         then Fina :=BiliX
         else Fina := BiliY;

        if Fina > 1
         then Fina :=1;
         FinaInteger:=Round(UseB.Width*Fina);
          SmallBmp.Canvas.StretchDraw(Rect(0,0,Round(UseB.Width*Fina ),Round(UseB.Height*Fina )),UseB);