Tabellen einer DB auflisten über ADO

[Jelly]

Ich sitz grad etwas auf dem Schlauch. Über folgende Methode liste ich mir alle Tabellenfelder in eine StringList. Das klappt auch.

Delphi-Quellcode:

procedure TMailFieldName.FillFieldNames (Names : TStringList) ;
var
  aRS   : _RecordSet;
  aOleV : OleVariant;
  sSQL  : string ;
  FConnection : string ;
  Info : TMailDatabaseInfo ;
  i : integer ;
begin
  aRS := CoRecordSet.Create;
  aRS.CursorLocation := adUseServer;
  Info := TMailDatabaseInfo (GetComponent(0)) ;
  with Info do begin
     sSQL := format('select * from %s where 1=2',
                    [Tablename]
                    ) ;
     FConnection := ConnectionString ;
  end ;
  try
    aRS.Open(sSQL, FConnection,adOpenStatic, adLockReadOnly, adCmdText);
    Names.clear ;
    for i := 0 to aRS.Fields.Count-1 do
       Names.Add (aRS.Fields[i].Name) ;
  finally
    aRS.Close;
  end;
end;

Ich bin mit diesen ganzen ADO Sachen nicht so vertraut. Ich suche jetzt was Ähnliches. Will aber nicht die Felder einer Tabelle auflisten sondern alle Tabellen einer Datenbank. Am liebsten natürlich unabhängig vom DB System.