--- a/hedgewars/uChat.pas	Tue Feb 01 15:30:08 2011 +0100
+++ b/hedgewars/uChat.pas	Tue Feb 01 19:49:10 2011 +0100
@@ -370,7 +370,13 @@
 end;
 
 procedure freeModule;
+var i: ShortInt;
 begin
+    FreeTexture(InputStr.Tex);
+    for i:= 0 to MaxStrIndex do
+    begin
+        FreeTexture(Strs[i].Tex);
+    end;
 end;
 
 end.