TBAseStringBitmaps.CalculateGlobals: the first <non-empty> bitmap should be used, not the first one

git-svn-id: trunk@49625 -
(cherry picked from commit ade1bad057d01ba1c25b35aff57b8a6020fca170)

packages/fcl-image/src/freetype.pp

@@ -1000,7 +1000,7 @@ begin
   While (l<Count) and (BitMaps[l]^.Width=0) and (BitMaps[l]^.Height=0) do
     Inc(l);
   if L<Count then
-    with BitMaps[0]^ do
+    with BitMaps[L]^ do
       begin
       FBounds.left := x;
       FBounds.top := y + height;