412 else

   412 else

   413     begin

   413     begin

   414     // If I knew how to add a gear without it becoming immediately active, I'd

   414     // If I knew how to add a gear without it becoming immediately active, I'd

   415     // just create/attach the hedgehog SpeechGear here, then activate it where

   415     // just create/attach the hedgehog SpeechGear here, then activate it where

   416     // SpeechType/SpeechText are activated

   416     // SpeechType/SpeechText are activated

   418     SpeechText:= text

   418     SpeechText:= text

   419     end;

   419     end;

   420 end;

   420 end;

   421 

   421 

   422 procedure chNewGrave;

   422 procedure chNewGrave;