不知你的dblist是否是listbox的Name,若是的话，就可以这样做。
procedure tform1.formcreate(sender:tobject);
var i:integer;
begin
table1.Open;
table1.First;
for i:=0 to table1.FieldCount-1 do
begin
dblist.Items.Add(table1.Fields.DisplayName);
end;
end;
他应该是想把某一字段的所有数据放在TDbListBox中，而不是想要所有的字段名吧：
with Table1 do
begin
Open;
First;
while not Eof do
begin
DBListBox1.Items.Add(FieldByName('NAME').AsString);
Next;
end;
end;
