863     while iterator <> nil do

   863     while iterator <> nil do

   864         begin

   864         begin

   865         if (iterator^.Kind = gtPortal) then 

   865         if (iterator^.Kind = gtPortal) then 

   866             begin

   866             begin

   867             tmpGear:= iterator;

   867             tmpGear:= iterator;

   869             DeleteGear(tmpGear)

   869             DeleteGear(tmpGear)

   870             end

   870             end

   871         else iterator:= iterator^.NextGear;

   871         else iterator:= iterator^.NextGear;

   872         end;

   872         end;

   873 end;

   873 end;