请看下面的代码，该怎么改。10分(10分)

／／作用，将表中的字段名（不是值）全部写入DBCOMBOBOX1。
var
ii:integer;
begin
adotable1.Open;
for ii:=0 to adotable1.recordcount-1 do
begin
dbcombobox1.items.add(adotable1.fieldbyname(i).FieldName);
adotable1.Next;
end;

／／作用，将表中的字段名（不是值）全部写入DBCOMBOBOX1。
var
i:integer;
begin
AdoTable1.Open;
for i:=0 to AdoTable1.Fields.Count-1 do
dbComboBox1.Items.Add(table1.Fields.FullName);
end;

thx