Отрисовка CheckListBox.

[NikLik]

Есть checklistbox, периодически проверяю необходимость добавления горизонтального скролла в нём:

procedure TForm1.CheckHorzScroll;
var
  i, MaxWidth: integer;
begin
  MaxWidth := 0;
  for i := 0 to Vlist.Items.Count - 1 do
    if MaxWidth < Vlist.Canvas.TextWidth(Vlist.Items.Strings[i]) then
      MaxWidth := Vlist.Canvas.TextWidth(Vlist.Items.Strings[i]);
  SendMessage(Vlist.Handle, LB_SETHORIZONTALEXTENT, MaxWidth + 20, 0);
end;

Скролл появился. Проматываю максимально-вправо(так что сами Checkbox'ы не видны), потом потом проматываю максимально-влево(checkbox'ы видны), но так называемые "птички" у чекнутых строк отрисовываются как-то криво(см. вложение).
Причём если скролл прокручивать быстро, то всё отрисовывается ок, а если медленно--криво.
Какие есть варианты решения этой проблемы?

P.S. если каждые n мс делать CheckListBox.Repaint, то всё ок, но данный вариант не подходит.