diff --git a/Projects/Simba/extensionmanager.pas b/Projects/Simba/extensionmanager.pas
index 8727080..ad1d5eb 100644
--- a/Projects/Simba/extensionmanager.pas
+++ b/Projects/Simba/extensionmanager.pas
@@ -58,10 +58,15 @@ end;
 
 destructor TExtensionManager.Destroy;
 var
-  i: Integer;
+  I, C: Integer;
 begin
-  for i := 0 to Extensions.Count - 1 do
-    TExtension(Extensions.Items[i]).Free;
+  C := Extensions.Count - 1;
+  for I := 0 to C do
+  begin
+    TExtension(Extensions.Items[I]).Settings.Free;
+    TExtension(Extensions.Items[I]).Free;
+  end;
+
   Extensions.Free;
   inherited Destroy;
 end;
diff --git a/Projects/Simba/psextension.pas b/Projects/Simba/psextension.pas
index 47756e9..c100096 100644
--- a/Projects/Simba/psextension.pas
+++ b/Projects/Simba/psextension.pas
@@ -329,6 +329,7 @@ begin
   FreeScript;
   if Assigned(PSInstance) then
     FreeAndNil(PSInstance);
+  Script.Free;
   inherited;
 end;