* Fixed all the memory leaks I could find in CoreLib. We now have non in CoreLib.

1 files changed, 4 insertions, 1 deletions

diff --git a/src/corelib/gfx_msgqueue.inc b/src/corelib/gfx_msgqueue.inc
index 58eeaa16..c60bda2b 100644
--- a/src/corelib/gfx_msgqueue.inc
+++ b/src/corelib/gfx_msgqueue.inc
@@ -4,7 +4,7 @@
 
 type
   // a simlpe linked list implementation
-  TMessageListElement = class
+  TMessageListElement = class(TObject)
   protected
     Next: TMessageListElement;
     Prev: TMessageListElement;
@@ -96,10 +96,13 @@ begin
   UsedLastMessage  := nil;
   FreeFirstMessage := nil;
   FreeLastMessage  := nil;
+  
+  uMsgQueueList := TList.Create;
 
   for n := 1 to cMessageQueueSize do
   begin
     e := TMessageListElement.Create;
+    uMsgQueueList.Add(e); // so we can free it off later
     MsgListInsertElement(e,FreeFirstMessage,FreeLastMessage);
   end;
 end;