anchor.diff:        const ASliceName: string = ''): TArray<string>;
       class procedure CloseConnectionDefs(const AConnectionDefNames: TArray<string>);
       class function CreateConnectionByDefName(const AConnectionDefName: string): TFDConnection;
  +
  +    class constructor CreateClass;
  +    class procedure AddContextValueProvider(const AContextValueProviderProc: TContextValueProviderProc);
     end;
   
     function MacroDataTypeToFieldType(const AMacroDataType: TFDMacroDataType): TFieldType;
  
positive.code: 
    LIndex: Integer;
    LValue: string;
  begin
    Result := TValue.Empty;
    LNameTokens := AName.Split([PARAM_AND_MACRO_DELIMITER]);
  
negative.code:   for LIndex := 0 to ACommand.Params.Count-1 do
    begin
      LParam := ACommand.Params[LIndex];
      LParam.Value := GetContextValue(LParam.Name, LParam.DataType).AsVariant;
    end;
  
  