legandox, у компонента PaintBox свойство ClearBeforeDraw = True, что и приводит к стиранию нарисованных вами прямоугольников.
При таком подходе как у вас нужно делать так:
1. Очистили doClear.
2. Нарисовали.
3. Сделали doRefresh.
* свойство ClearBeforeDraw должно быть False.
Схема: code_36673.txt
Можно и так:
1. Делаем doRefresh, а включенное свойство ClearBeforeDraw = True сделает перед отрисовкой очистку.
2. Рисуем все необходимое после onBeforeDraw.
Схема:
code_36674.txt
Во втором способе отрисовка будет происходить не только при doRefresh, но и при каждом обновлении окна на котором находится PaintBox. Тоесть когда система "скажет" окну вашей программе, что нужно обновить то что на ней находится, произойдет onBeforeDraw и все будет перерисовано. Что и видно при загрузки программы.
------------ Дoбавленo в 16.24:
Нужно установить False.