DELPHI 遍历 ACCESS 表名，字段名

procedure TForm1.Button1Click(Sender: TObject);
var
sql:string;
SL: TStrings;
i:integer;
begin
  ADOConnection1.Connected :=True;
  sl:= TStringList.Create;
  try
    ADOConnection1.GetTableNames(SL,   False);
    for i:=0 to sl.Count -1 do
    begin
      MEMO1.Lines.Add(SL[I]);
    end;
  finally
    SL.Free;
  end;
  sql:='select * from bp';
  adoquery1.SQL.Add(sql);
  adoquery1.open ;
  for i:=0 to adoquery1.fielddefs.Count -1 do
  begin
  memo1.Lines.add(adoquery1.fielddefs[i].Name   );
  //memo1.Lines.add(adoquery1.FieldList[i].AsString);
  end;
end;