anchor.diff:    while L <= H do
     begin
       I := (L + H) shr 1;
  -    c := BinStrComp(PRawListData(FList[i])^.RawData,RawData);
  +    c := TBaseType.BinStrComp(PRawListData(FList[i])^.RawData,RawData);
       if C < 0 then L := I + 1 else
       begin
         H := I - 1;
  
positive.code:   TPascalCoinProtocol.CalcProofOfWork(newOperationBlock,pow);
    if (pow<>newOperationBlock.proof_of_work) then begin
      errors := 'Proof of work is bad calculated '+TCrypto.ToHexaString(newOperationBlock.proof_of_work)+' <> Good: '+TCrypto.ToHexaString(pow);
      exit;
    end;
    if (newOperationBlock.proof_of_work > target_hash) then begin
      errors := 'Proof of work is higher than target '+TCrypto.ToHexaString(newOperationBlock.proof_of_work)+' > '+TCrypto.ToHexaString(target_hash);
      exit;
    end;
    Result := true;
  
negative.code:         errors := 'Invalid protocol version change to '+IntToStr(newOperationBlock.protocol_version);
          exit;
        end;
      end;
      // timestamp
      if ((newOperationBlock.timestamp) < (lastBlock.timestamp)) then begin
        errors := 'Invalid timestamp (Back timestamp: New timestamp:'+inttostr(newOperationBlock.timestamp)+' < last timestamp ('+Inttostr(BlocksCount-1)+'):'+Inttostr(lastBlock.timestamp)+')';
        exit;
      end;
    end;
    // compact_target
  