anchor.diff:    for LIndex := 0 to ACommand.Params.Count-1 do
     begin
       LParam := ACommand.Params[LIndex];
  -
       LParam.Value := GetContextValue(LParam.Name, LParam.DataType).AsVariant;
     end;
   
  
positive.code: 
  { TMARSFireDAC }
  
  class procedure TMARSFireDAC.CloseConnectionDefs(
    const AConnectionDefNames: TArray<string>);
  var
  
negative.code:       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;
  