Paradox数据库别名的问题

两种方法。
1、是分发程序时打包，此时加上别名就可以了。
2、就是在程序上建立。
   Database1.close;
   Database1.DatabaseName:='NewAlias6';
   Database1.DriverName:='STANDARD';
   Database1.Params.Clear;
   Database1.Params.Add('path='+extractfilepath(application.exename)+'data');
   table1.DatabaseName:='NewAlias6';
   DataSource1.DataSet:=table1;
   table1.close;
   table1.TableName :='rscontrol.DB';