anchor.diff:    dest.accountInfoKS.price:=source.accountInfo.price;
     dest.accountInfoKS.account_to_pay:=source.accountInfo.account_to_pay;
     dest.accountInfoKS.new_publicKeyKS:=TAccountKeyStorage.KS.AddAccountKey(source.accountInfo.new_publicKey);
  +  dest.accountInfoKS.hashed_secret:=source.accountInfo.hashed_secret;
     {$ELSE}
     TAccountComp.AccountInfo2RawString(source.accountInfo,raw);
     TBaseType.To256RawBytes(raw,dest.accountInfo);
  
positive.code:         Result := IsValidAccountKey(AAccountInfo.accountKey,errors);
        end;
      as_ForSale: begin
          If Not IsValidAccountKey(AAccountInfo.accountKey,s) then errors := errors +' '+s;
          Result := errors='';
        end;
    else
      raise Exception.Create('DEVELOP ERROR 20170214-3');
    end;
  
negative.code:   dest.accountInfo.price:=source.accountInfoKS.price;
    dest.accountInfo.account_to_pay:=source.accountInfoKS.account_to_pay;
    dest.accountInfo.new_publicKey:=source.accountInfoKS.new_publicKeyKS^;
    dest.accountInfo.hashed_secret:=source.accountInfoKS.hashed_secret;
    {$ELSE}
    TBaseType.ToRawBytes(source.accountInfo,raw);
    TAccountComp.RawString2AccountInfo(raw,dest.accountInfo);
  