anchor.diff:    FClient := Client;
     FName := AName;
     FArgs := Args;
  -  Client.ByValue(FArgs);
  +  //Client.ByValue(FArgs);
     FCallback := Callback;
     FSettings := ASettings;
     FError := nil;
  
positive.code:   InitURI(FURIList[0]);
  end;
  
  procedure THproseClient.ByValue(var Arguments: TVariants);
  var
    I: Integer;
  begin
    for I := 0 to Length(Arguments) - 1 do Arguments[I] := VarUnref(Arguments[I]);
  end;
  
  procedure THproseClient.SetURI(const AValue: string);
  begin
  
negative.code:   FClient := Client;
    FName := AName;
    FArgs := Args;
    //Client.ByValue(FArgs);
    FCallback := Callback;
    FSettings := ASettings;
    FError := nil;
  