Подпрограммы блокировки рисования

procedure Redraw;
        Перерисовывает содержимое графического окна. Вызывается в паре с LockDrawing
procedure LockDrawing;
        Блокирует рисование на графическом окне. Перерисовка графического окна выполняется с помощью Redraw
procedure UnlockDrawing;
        Снимает блокировку рисования на графическом окне и осуществляет его перерисовку

Блокировка вывода в графическое окно LockDrawing с последующим вызовом Redraw используется для простейшего создания анимации без мерцания.

Пример. Анимация без мерцания