* Fix font name changing issues, patch by Dirk F, mantis #26550

git-svn-id: trunk@28331 -

packages/fcl-image/src/freetype.pp

@@ -416,8 +416,8 @@ begin
   result := FList.count-1;
   while (result >= 0) and
         ( ({$ifdef CaseSense}CompareText{$else}CompareStr{$endif}
-              (TMgrFont(FList[anIndex]).Filename, afilename) <> 0) or
-          (anIndex <> TMgrFont(FList[anIndex]).font^.face_index)
+              (TMgrFont(FList[Result]).Filename, afilename) <> 0) or
+          (anIndex <> TMgrFont(FList[Result]).font^.face_index)
         ) do
     dec (result);
 end;