Зависает игра
 

Скорей всего вот из за этого
Randomize;
r:=Random(50);
Randomize;
r2:=Random(r);
Randomize;
kanatbonus[kanat-1]:=Random(r2)+1;

может или нет?
Пока небыло этого кода все было ОК

Re: Зависает игра
 

Всё сам понял надо вот так:
Randomize;
r:=Random(50)+1;
r2:=Random(r)+1;
Randomize;
kanatbonus[kanat-1]:=Random(r2)+1;