--- 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)