Afficher le nom des tables d'une base de donnée

uses dbtables;

procedure TForm1.Button1Click(Sender: TObject);
var
ts: TStringlist;
begin
ts := TStringlist.create;
Session.GetTableNames('DBDEMOS', '*.DB', false, false, ts);
listbox1.items.assign(ts);
ts.free;
end;