Herausfinden, wie viel Tabellen in einer Datenbank sind?

[smart]

Ich habe selbst eine Lösung gefunden:

Delphi-Quellcode:

var
Tables: TStringList;
i: integer;
begin
ListBox3.Clear;
Tables := TStringList.Create;
  try
    ABSDatabase1.GetTablesList(Tables);
     for i:=0 to tables.Count-1 do
       ListBox3.Items.Add(Tables[i]);
    finally
   Tables.free;

Heike.