anchor.diff:        const Context: TClientContext): Variant;
       function GetFullName(const AName: string): string;
       procedure SetURI(const AValue: string);
  -    //procedure ByValue(var Arguments: TVariants);
  +    procedure SetURIList(const AURIList: IList);
   {$IFDEF SUPPORTS_ANONYMOUS_METHOD}
       procedure VarToT(Info: PTypeInfo; const Src: Variant; out Dst);
       function VarTo<T>(const AValue: Variant): T;
  
positive.code:  *                                                        *
   * hprose client unit for delphi.                         *
   *                                                        *
   * LastModified: Dec 14, 2016                             *
   * Author: Ma Bingyao <andot@hprose.com>                  *
   *                                                        *
  \**********************************************************/
  
negative.code:   FClient := Client;
    FName := AName;
    FArgs := Args;
    FCallback := Callback;
    FSettings := ASettings;
    FError := nil;
  