154     begin

   154     begin

   155     i:= 0;

   155     i:= 0;

   156     while (i < Stack.Count) do

   156     while (i < Stack.Count) do

   157           begin

   157           begin

   158           if(not(hwAbs(Stack.States[i].Hedgehog.X - Me^.X) +

   158           if(not(hwAbs(Stack.States[i].Hedgehog.X - Me^.X) +

   160               (Stack.States[i].Hedgehog.Message = Me^.Message) then exit(true);

   160               (Stack.States[i].Hedgehog.Message = Me^.Message) then exit(true);

   161           inc(i)

   161           inc(i)

   162           end;

   162           end;

   163     PosInThinkStack:= false

   163     PosInThinkStack:= false

   164     end;

   164     end;