procedure TUniConnection.CreateIConnection;var  Connection: TCRConnection;  ConnectionParameters: TCRConnectionParameters;  procedure SetSpecificObjectProps(SetAllProps: boolean);  begin    FProvider.SetObjectProps(Connection, FSpecificOptions.Values, SetAllProps);    FSpecificOptions.IsModified := False;  end;begin  CheckProvider;  Connection := FIConnection;  if Connection = nil then begin    if Pooling and FProvider.IsPoolingSupported then begin      ConnectionParameters := FProvider.GetConnectionParametersClass.Create;      try        ConnectionParameters.MinPoolSize := PoolingOptions.MinPoolSize;        ConnectionParameters.MaxPoolSize := PoolingOptions.MaxPoolSize;        ConnectionParameters.ConnectionLifeTime := PoolingOptions.ConnectionLifetime;        ConnectionParameters.Validate := PoolingOptions.Validate;        ConnectionParameters.Username := Username;        ConnectionParameters.Password := Password;        ConnectionParameters.Server := Server;        ConnectionParameters.IOHandler := FIOHandler;        ConnectionParameters.OnError := DoError;        if FProvider.IsDatabaseSupported then //upd1          ConnectionParameters.SetProp(prDatabase, FDatabase);        if FProvider.IsPortSupported then          ConnectionParameters.SetProp(prPort, Port);        FProvider.SetObjectProps(ConnectionParameters, SpecificOptions, True);        Connection := FProvider.GetConnectionPoolingManagerClass.GetConnection(          ConnectionParameters, TUniSQLMonitor);      finally        ConnectionParameters.Free;      end;    end    else begin      Connection := GetIConnectionClass.Create;      Connection.IOHandler := FIOHandler;      if FProvider.IsDatabaseSupported then        Connection.SetProp(prDatabase, FDatabase);      if FProvider.IsPortSupported then        Connection.SetProp(prPort, Port);    end;    Connection.SetProp(prDisconnectedMode, Options.DisconnectedMode);    Connection.SetProp(prEnableBCD, Options.EnableBCD);  {$IFDEF VER6P}  {$IFNDEF FPC}    Connection.SetProp(prEnableFMTBCD, Options.EnableFMTBCD);  {$ENDIF}  {$ENDIF}    Connection.SetProp(prDefaultSortType, Variant(Options.DefaultSortType));    // if connection is just created we need to set all options    SetSpecificObjectProps(True);    SetIConnection(Connection);  end;  if FSpecificOptions.IsModified then    SetSpecificObjectProps(False);end;