如何将一个表中的所有字段名称加入到combobox中去？

[highbury]

假设一个表有5个字段 我现在想在一个combobox当中把这些字段的名称加入进去。
combobox1.Items.Add(adotable1.fieldname） 这样写编译没有通过 请问要怎么实现?3x

[things]

for i := 0 to adotable1.Fields.Count - 1 do
combobox1.Items.Add(adotable1.Fields[i].FieldName);

[WWWWA]

var
list:TStringlist;i:integer;
begin
list:=TStringlist.create;
ADOConnection1.GetFieldNames('jzg.dbf',list);
combobox1.Items.Assign(list);