Delphi, TCheckListBox - неактивные чек-боксы в стиле lbVirtual

Delphi 7 или XE8, приложение Win32. На форме лежит кнопка и экземпляр TCheckListBox, пустой, с дефолтными настройками. Обработчики см. ниже. Чек-боксы не активны. Как это исправить? Спасибо.

procedure TForm1.Button1Click(Sender: TObject);
begin
  CheckListBox1.Style:= lbVirtual;
  CheckListBox1.Count:= 5;
  CheckListBox1.ItemEnabled[0]:= True;
  CheckListBox1.CheckAll(cbChecked);
end;

procedure TForm1.CheckListBox1Data(Control: TWinControl; Index: Integer;
  var Data: string);
begin
  Data:= IntToStr(Index);
end;