anchor.diff:      function GetFullName(const AName: string): string;
       procedure SetURI(const AValue: string);
   {$IFDEF SUPPORTS_GENERICS}
  -    function VariantTo<T>(const AValue: Variant): T;
  +    procedure VarToT(Info: PTypeInfo; const Src: Variant; out Dst);
  +    function VarTo<T>(const AValue: Variant): T;
   {$ENDIF}
     protected
       procedure InitURI(const AValue: string); virtual;
  
positive.code:   Context := TClientContext.Create(Self, ASettings);
    Handler := FHandlers.InvokeHandler^.Handler;
    Next := FHandlers.InvokeHandler^.Next;
    Result := Handler(FullName, Args, Context, Next);
    FreeAndNil(Context);
  end;
  
  // Asynchronous invoke
  
negative.code:  *                                                        *
   * hprose client unit for delphi.                         *
   *                                                        *
   * LastModified: Nov 21, 2016                             *
   * Author: Ma Bingyao <andot@hprose.com>                  *
   *                                                        *
  \**********************************************************/
  