Поскольку вы рисуете прямо на форме, то для корректной отрисовки формы все операции по рисованию на ней должны проводиться в событии OnPaint. (Roamer - верно сказал.)
Альтернативой является использование компонента на котором можно рисовать без этих проблем - например TImage или TPaintBox.
|