AdvStringGrid 使用(10分)

请教如何在 AdvStringGrid 第一个字段加CHECKBOX,并且是可选择的!,本人十分感谢!!!

AdvStringGrid1.AddCheckBox(1,1,true,false);

procedure TForm1.AdvStringGrid1GetEditorType(Sender: TObject; aCol,
aRow: Integer; var aEditor: TEditorType);
begin
advstringgrid1.EditLink:=CheckEditLink1;
end;
//---------------------------------------------------------------
procedure TForm1.AdvStringGrid1GetEditorProp(Sender: TObject; aCol,
aRow: Integer; aEditLink: TEditLink);
begin
with (aEditLink.GetEditControl as TCheckListEdit) do
begin
items.Add('BMW');
items.Add('Ferrari');
items.Add('Mercedes');
items.Add('Porsche');
items.Add('Audi');
end;
end;