anchor.diff:    TmQueryParameters = class
     strict private
       FList : TObjectList;
  +    FIndex : TmStringDictionary;
     public
       constructor Create;
       destructor Destroy; override;
  
positive.code: 
  function TmQueryParameters.GetParam(aIndex: integer): TmQueryParameter;
  begin
    Result := FList.Items[aIndex] as TmQueryParameter;
  end;
  
  
negative.code: 
  uses
    DB, Contnrs, SysUtils, Variants, Classes, {$IFDEF FPC}base64,{$ELSE}EncdDecd, {$ENDIF}
    mNullables, mXML, mUtility, mIntList, mDoubleList, mFilter, mFilterOperators, mMaps;
  
  type
    TmDataConnectionException = class (Exception);
  