anchor.diff:    TmQueryParameters = class
     strict private
       FList : TObjectList;
  +    FIndex : TmStringDictionary;
     public
       constructor Create;
       destructor Destroy; override;
  
positive.code:   i : integer;
  begin
    Result := nil;
    for i := 0 to FList.Count - 1 do
    begin
      if CompareText((FList.Items[i] as TmQueryParameter).Name, aName) = 0 then
      begin
        Result := FList.Items[i] as TmQueryParameter;
        exit;
      end;
    end;
  end;
  
  procedure TmQueryParameters.Clear;
  begin
    FList.Clear;
  end;
  
  
negative.code: constructor TmQueryParameters.Create;
  begin
    FList:= TObjectList.Create;
    FIndex := TmStringDictionary.Create(false);
  end;
  
  destructor TmQueryParameters.Destroy;
  begin
    FIndex.Free;
    FList.Free;
    inherited Destroy;
  end;
  