From ece9e9a5b405619e9f385128777c416764f955a5 Mon Sep 17 00:00:00 2001
From: "John P (Dgby714)" <Dgby714@gmail.com>
Date: Wed, 29 Jun 2011 11:45:36 -0400
Subject: [PATCH] ExtensionManager: Free'd a few objects that got left in
 memory.

---
 Projects/Simba/extensionmanager.pas | 11 ++++++++---
 Projects/Simba/psextension.pas      |  1 +
 2 files changed, 9 insertions(+), 3 deletions(-)

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;