Delphi 10 FireDac 连接池设置

使用FireDac 连接  MySQL数据库，参考官方帮助文档

http://docwiki.embarcadero.com/RADStudio/XE7/en/Multithreading_(FireDAC)，

实现过程如下：

1、在DataModule界面上 放置一个  FDManager 控件；

2、在 Create 事件中：

procedure TDM.DataModuleCreate(Sender: TObject);

var

    oParams: TStrings;

begin 
  //*****初始化*****
  oParams := TStringList.Create;
  //********* 连接池
    oParams.Add('DriverID=MySQL');
    oParams.Add('CharacterSet=utf8');
    oParams.Add('Server=localhost');
    oParams.Add('Port=3306');
    oParams.Add('Database=dbname');
    oParams.Add('User_Name=dbuser');
    oParams.Add('Password=password');
    //  毫秒
    oParams.Add('POOL_CleanupTimeout=36000');
    //  毫秒
    oParams.Add('POOL_ExpireTimeout=600000');
    //最多连接数
    oParams.Add('POOL_MaximumItems=60');
    oParams.Add('