Проблема с Paintbox, Как избавиться от мерцания при перерисовки? Опции

[A-i-D]

Привет всем!

Мне необходимо сделать аналоговые часы. В общем у меня все получилось. У меня на отдельном пробнике даже стрелочки красивые есть. Осталась, онда мелочь.
При перерисовки происходит мерцание! Как от него избавиться???

Вот мой исходник с ехе файлом ~ 168 Кб

[volvo]

Procedure TForm1.FormCreate(Sender: TObject);
Begin
   DoubleBuffered := True;
   ...
End;

[A-i-D]

Большое Спасибо!

Все работает, есть маленькие мерчания, но они практически незамны. А так ОК!