anchor.diff:        FListOrderedBySha256.Clear;
         FListOrderedByAccountsData.Clear;
         FListOrderedByOpReference.Clear;
  -      FHashTree := '';
  +      FHashTree:=Nil;
       End;
       If Assigned(FOnChanged) then FOnChanged(Self);
     finally
  
positive.code:   FOnChanged := Nil;
    ClearHastThree;
    FreeAndNil(FHashTreeOperations);
    SetLength(FHashTree,0);
    FreeAndNil(FListOrderedBySha256);
    FreeAndNil(FListOrderedByAccountsData);
    FreeAndNil(FListOrderedByOpReference);
  
negative.code:   block :=0;
    account :=0;
    n_operation :=0;
    md160Hash := Nil;
    if length(operationHash)<>32 then exit;
    ms := TMemoryStream.Create;
    try
  