DELPHI中动态获得SQLSERVER数据库名

str:=Table1.Tablename;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(format('select * from %s',[Str]));
Query1.Open;