hedgewars/uGears.pas
changeset 14956 225839af5272
parent 14878 4e3d81af71bf
child 14991 dc50766f6d0c
--- a/hedgewars/uGears.pas	Wed May 15 14:12:15 2019 +0300
+++ b/hedgewars/uGears.pas	Wed May 15 18:43:42 2019 +0300
@@ -729,6 +729,7 @@
     GearsList:= nil;
     while tt <> nil do
     begin
+        FreeAndNilTexture(tt^.Tex);
         t:= tt;
         tt:= tt^.NextGear;
         Dispose(t)