anchor.diff:  Var i : Integer;
     tmp_ansistring : RawByteString;
   {$ELSE}
  -var LRaw : TBytes;
  +var
  + LValue: String;
  + LowIndex: Integer;
   {$ENDIF}
   begin
   {$IFDEF Use_OpenSSL}
  
positive.code: {$IFDEF Use_OpenSSL}
  Var p : PAnsiChar;
    i : Integer;
  {$ENDIF}
  begin
  {$IFDEF Use_OpenSSL}
  
negative.code:   p := @Result[Low(Result)];
    i := BN_bn2bin(FBN,p);
  {$ELSE}
   if FBigInteger.SignValue < 0 then LBigInteger := FBigInteger.Negate // make copy !!! important
   else
    LBigInteger := FBigInteger;
    Result := LBigInteger.ToByteArrayUnsigned;
  {$ENDIF}
  end;
  
  