with DataSource1.DataSet do
begin
  First;
  while Not Eof do
  begin
    DBListBox1.Items.Add(FieldbyName('字段名').AsString);
    Next;
  end;
end;