1 files changed, 4 insertions, 1 deletions
diff --git a/src/corelib/fpgfx.pas b/src/corelib/fpgfx.pas
index e35a8084..05402367 100644
--- a/src/corelib/fpgfx.pas
+++ b/src/corelib/fpgfx.pas
@@ -783,7 +783,10 @@ end;
 destructor TfpgApplication.Destroy;
 var
   i: integer;
+  frm: TfpgWindow;
 begin
+  DestroyComponents;    // 2008-04-23: Is this right??
+
   for i := 0 to (fpgNamedFonts.Count - 1) do
     TNamedFontItem(fpgNamedFonts.Items[i]).Free;
   fpgNamedFonts.Free;
@@ -818,7 +821,7 @@ begin
     uMsgQueueList.Delete(i);
   end;
   uMsgQueueList.Free;
-
+  
   inherited Destroy;
 end;