--- a/hedgewars/uVisualGears.pas	Sun Jan 24 19:52:30 2010 +0000
+++ b/hedgewars/uVisualGears.pas	Tue Jan 26 04:13:37 2010 +0000
@@ -48,6 +48,7 @@
 		end;
 
 procedure init_uVisualGears;
+procedure free_uVisualGears;
 function  AddVisualGear(X, Y: LongInt; Kind: TVisualGearType): PVisualGear;
 procedure ProcessVisualGears(Steps: Longword);
 procedure DrawVisualGears(Layer: LongWord);
@@ -558,5 +559,9 @@
 	VisualGearsList:= nil;
 end;
 
+procedure free_uVisualGears;
+begin
+while VisualGearsList <> nil do DeleteVisualGear(VisualGearsList);
+end;
 
 end.