ListView+Checkbox

[lantian]

Доброго времени суток!
Как можно добавить колонку с чекбоксом? Я предварительно прогуглил и форум просмотрел, но ничего конкретного не нашел.
У меня имеется 6 колонок, и надо в последней сделать чекбокс. Добавляю я колонки таким образом:


Col:=QuestList.Columns.Add;
Col.Caption := '';
Col.AutoSize := True;
Col.Width := 1;

Col := QuestList.Columns.Add;
Col.Caption := '№';
Col.AutoSize := True;
Col.Width := 30;

Col := QuestList.Columns.Add;
Col.Caption := 'Текст вопроса';
Col.AutoSize := True;
Col.Width := 500;

Col := QuestList.Columns.Add;
Col.Caption := 'Тип';
Col.AutoSize := True;
Col.Width := 50;

Col := QuestList.Columns.Add;
Col.Caption := 'Ответов';
Col.AutoSize := True;
Col.Width := 83;

Col := QuestList.Columns.Add;
Col.Caption := 'Скрыт';
Col.AutoSize := True;
Col.Width := 73;

Значение Checkboxes:=true;
Заранее спасибо =)

[Dj_smart]

procedure TForm1.Button1Click(Sender: TObject);
const
  pbColumnIndex = 1;
  pbMax = 100;
var
  li : TListItem;
  lv : TListView;
  pb : TCheckBox;
  pbRect : TRect;
begin
  lv := ListView1;
  li := lv.Items.Add;
  li.Caption := 'Item ' + IntToStr(lv.Items.Count);
  pb := TCheckBox.Create(nil);
  pb.Parent := lv;
  li.Data := pb;
  pbRect := li.DisplayRect(drBounds);
  pbRect.Left := pbRect.Left +
  lv.Columns[-1 + pbColumnIndex].Width;
  pbRect.Right := pbRect.Left +
  lv.Columns[pbColumnIndex].Width;
  pb.BoundsRect := pbRect;
end;