--- a/hedgewars/uCaptions.pas	Tue Feb 01 15:30:08 2011 +0100
+++ b/hedgewars/uCaptions.pas	Tue Feb 01 19:49:10 2011 +0100
@@ -66,7 +66,13 @@
 end;
 
 procedure freeModule;
+var
+    group: TCapGroup;
 begin
+    for group:= Low(TCapGroup) to High(TCapGroup) do
+    begin
+        FreeTexture(Captions[group].Tex);
+    end;
 end;
 
 end.