cxGrid行中某字段设置为combobox的时候如何通过代码设置items中的项目呢?(100分)

cxGrid行中某字段设置为combobox的时候如何通过代码设置items中的项目呢?

with qrydo
begin
close;
sql.text:='select * from aaa';
try
open;
while not eofdo
begin
s:=FieldbyName('fff').asString;
if TcxComboBoxProperties(clnsType.Properties).Items.IndexOf(s)<0 then
//避免添加重复数据
TcxComboBoxProperties(columnName1.Properties).Items.Add(s);
next;//columnName1---combobox所在的那一列的列名
end;
except
end;
end;
//别忘了给分！