delphi中的LISTVIEW怎么与数据库连接

listview1.clear;
with adoquery1 do
begin
  Sql.text := 'Select * from table1';
  Open ;

  while not eof do
  begin
    with listview1.items.add do
    begin
      caption := fieldbyName('field1').asstring;
      subitems.add(fieldbyName('field2').asstring);
      subitems.add(fieldbyName('field3').asstring);
      subitems.add...
    end;
    Next;
  end;
end;