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: constructor TmQueryParameters.Create;
  begin
    FList:= TObjectList.Create;
  end;
  
  destructor TmQueryParameters.Destroy;
  begin
    FList.Free;
    inherited Destroy;
  end;
  
negative.code:   TmQueryParameters = class
    strict private
      FList : TObjectList;
      FIndex : TmStringDictionary;
    public
      constructor Create;
      destructor Destroy; override;
  