如果是一个字段,可以用listbox,如果是多字段,最好用listview.
动态添加:listview1.Items.Clear;
 yw_query.first;
 while not yw_query.eof do
 begin
    ListItem := listview1.Items.Add;
    ListItem.Caption := yw_query.fieldbyname('yw_no').asstring;
    ListItem.SubItems.Add(yw_query.fieldbyname('yw_xm').asstring);
    ListItem.SubItems.Add(yw_query.fieldbyname('yw_bm').asstring);
    ListItem.SubItems.Add(yw_query.fieldbyname('yw_zw').asstring);
    yw_query.Next; end;