Астрамак, укажи цвет отличный от clBlack в свойствах (clBlack = 0) или, если хочешь именно clBlack, то подай 0 сверху. Когда 0 в свойствах и нет верхней точки, то цвет берется из потока, как из MT, так как угол уже считался сверху, и это же самое значение читается как значение цвета. Да и незачем угол подавать свеху, в данном случае лучше сделать так:

code_10871.txt