anchor.diff:  
   class function TAccountComp.LoadAccountFromStream(Stream: TStream; var Account: TAccount): Boolean;
   var w : Word;
  -  s : AnsiString;
  +  raw : TRawBytes;
   begin
     Account := CT_Account_NUL;
     Result := False;
  
positive.code: 
  function TPCSafeBoxTransaction.CheckIntegrity: Boolean;
  begin
    Result := FOldSafeBoxHash = Origin_SafeboxHash;
  end;
  
  procedure TPCSafeBoxTransaction.CleanTransaction;
  
negative.code: Var raw : TRawBytes;
    BN, BNAux, BNBase : TBigNum;
    i,j : Integer;
    s1,s2 : RawByteString;
    i64 : Int64;
    b : Byte;
  begin
  