Вообще, думаю, наиболее рационально создавать контекст и делать его текущим однократно при создании формы, а освобождать также однократно — при закрытии окна. При этом переменные DC и hrc, естественно, должны быть глобальными, либо быть атрибутами объекта TForm1.
Но я еще раз повторю: код рабочий. По крайней мере, у меня работает вообще безошибочно. Вы не решили насчет трассировки?
|