522                 if speech <> nil then

   522                 if speech <> nil then

   523                     begin

   523                     begin

   524                     speech^.Text:= SpeechText;

   524                     speech^.Text:= SpeechText;

   525                     speech^.Hedgehog:= Gear^.Hedgehog;

   525                     speech^.Hedgehog:= Gear^.Hedgehog;

   526                     speech^.FrameTicks:= SpeechType;

   526                     speech^.FrameTicks:= SpeechType;

   527                     end;

   528                     end;

   528                 SpeechText:= ''

   529                 SpeechText:= ''

   529                 end;

   530                 end;

   530 

   531 

   531             Power:= 0;

   532             Power:= 0;