anchor.diff:    TempParam := TmQueryParameter.Create;
     FList.Add(TempParam);
     TempParam.ImportFromParam(aSource);
  +  FIndex.Clear;
   end;
   
   procedure TmQueryParameters.Add(aParam: TmQueryParameter);
   begin
     FList.Add(aParam);
  +  FIndex.Clear;
   end;
   
   function TmQueryParameters.FindByName(const aName: String): TmQueryParameter;
  
positive.code: 
  uses
    DB, Contnrs, SysUtils, Variants, Classes, {$IFDEF FPC}base64,{$ELSE}EncdDecd, {$ENDIF}
    mNullables, mXML, mUtility, mIntList, mDoubleList, mFilter, mFilterOperators;
  
  type
    TmDataConnectionException = class (Exception);
  
negative.code:   TmQueryParameters = class
    strict private
      FList : TObjectList;
      FIndex : TmStringDictionary;
    public
      constructor Create;
      destructor Destroy; override;
  