727 begin

   727 begin

   728     tt:= GearsList;

   728     tt:= GearsList;

   729     GearsList:= nil;

   729     GearsList:= nil;

   730     while tt <> nil do

   730     while tt <> nil do

   731     begin

   731     begin

   732         t:= tt;

   733         t:= tt;

   733         tt:= tt^.NextGear;

   734         tt:= tt^.NextGear;

   734         Dispose(t)

   735         Dispose(t)

   735     end;

   736     end;

   736 end;

   737 end;