Здравствуйте AndrewVK, Вы писали:
AVK>Код номер два
AVK>procedure Test.Paint;
// Входим в процу
// Canvas залочен!
AVK>begin
// Чего-то там рисуем в Canvas, типа что-то в буфер
AVK>end;
// Вышли из процы.
// Далее работает тот, кто вызвал:
// Canvas разлочивается и отрисовывается один раз!