* Setting empty should also work.

(cherry picked from commit 930e49590c33e516172648fddfc4a6ed953bc83e)

packages/fcl-image/src/freetype.pp

@@ -399,7 +399,9 @@ end;
 
 procedure TFontManager.SetExtension (AValue : string);
 begin
-  if AValue <> '' then
+  if AValue = '' then
+    FExtension:=''
+  else
     if AValue[1] <> '.' then
       FExtension := '.' + AValue
     else