[poli-smen]

Сообщение от Shpingalet

Я думаю, что ошибка закралась в обработке условия на 104 строке.

Вряд-ли. Зависание происходит даже если получать цвет произвольной, фиксированной точки, в тот момент, когда шарик с чем-то сталкивается :

Код:

procedure TBallSprite.DoCollision(Sprite: TSprite; var Done: Boolean);
  begin
    if form1.DXdraw1.Surface.canvas.Pixels[10,10]<>57536 then Exit else Exit;
    Exit;

Ещё, что-бы исключить элемент случайности, я заменил Randomize, на

Код:

RandSeed := 987654;