数据库存放TString类型的如何读出来显示在COMBOBOX里

数据库存放TString类型的怎么读出来显示在COMBOBOX里？
存放的内容为：
2000
2001
2002
2003
2004
FieldByName(L"内容")->AsString的结果：2000
2001
2002
2003
2004
但在COMBOBOX里只有一个item了，值为2000200120022003
如何显示原先的效果？

[解决办法]
TStringList *a=new TStringList();
a->Text=q->FieldByName(L"内容")->AsString;
ComboBox1->Items=a;