FIREDAC连接池配置

以下在delphi XE7下测试

    fdphysrcldrvrlnk1: TFDPhysOracleDriverLink;
    fdgxwtcrsr1: TFDGUIxWaitCursor;
    fdphysmysqldrvrlnk1: TFDPhysMySQLDriverLink;

var
  adm:TFDManager;
  oParams: TStrings;

begin
  adm:=TFDManager.Create(nil);
  oParams := TStringList.Create;
  try
    oParams.Add('Database=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=ip)(PORT=1521))(CONNECT_DATA=(SERVER=dedicated)(SERVICE_NAME=sid)))');
    oParams.Add('User_Name=dbuser');
    oParams.Add('Password=dbpwd');
    oParams.Add('Pooled=True');
    oParams.Add('CleanupTimeout=0');
    oParams.Add('ExpireTimeout=0');
    oParams.Add('PoolMaximumItems=20');
    adm.AddConnectionDef('Oracle_Pooled', 'Ora