diff --git a/components/lazutils/easylazfreetype.pas b/components/lazutils/easylazfreetype.pas
index 4165ccbe3d..a7f415fc9e 100644
--- a/components/lazutils/easylazfreetype.pas
+++ b/components/lazutils/easylazfreetype.pas
@@ -1138,7 +1138,8 @@ procedure TFreeTypeFont.DiscardInstance;
 begin
   if FInstanceCreated then
   begin
-    TT_Done_Instance(FInstance);
+    if FreeTypeInitialized then
+      TT_Done_Instance(FInstance);
     FInstanceCreated := false;
     FGlyphTable.FreeAndClear;
   end;