anchor.diff:    THproseCallback1 = reference to procedure(Result: Variant);
     TOnError = reference to procedure(const Name: string; const Error: Exception);
     TOnFailswitch = reference to procedure(const Client: THproseClient);
  +  THproseCallback<T> = reference to procedure(Result: T; var Args: TVariants);
  +  THproseCallback1<T> = reference to procedure(Result: T);
   {$ELSE}
     THproseCallback = procedure(Result: Variant; var Args: TVariants) of object;
     THproseCallback1 = procedure(Result: Variant) of object;
     TOnError = procedure(const Name: string; const Error: Exception) of object;
     TOnFailswitch = procedure(const Client: THproseClient) of object;
  -{$ENDIF}
  -
  -{$IFDEF SUPPORTS_GENERICS}
  -  THproseCallback<T> = reference to procedure(Result: T; var Args: TVariants);
  -  THproseCallback1<T> = reference to procedure(Result: T);
   {$ENDIF}
   
     { IInvokeSettings }
  
positive.code:  *                                                        *
   * hprose client unit for delphi.                         *
   *                                                        *
   * LastModified: Nov 23, 2016                             *
   * Author: Ma Bingyao <andot@hprose.com>                  *
   *                                                        *
  \**********************************************************/
  
negative.code:   FError := nil;
  end;
  
  {$IFDEF SUPPORTS_ANONYMOUS_METHOD}
  { TAsyncInvokeThread<T> }
  
  procedure TAsyncInvokeThread<T>.Execute;
  