anchor.diff:  begin
     p := BN_bn2dec(FBN);
     {$IFDEF NO_ANSISTRING}
  -  Result := p^; // TODO: Not tested when AnsiString not available!
  +  Result := UBaseTypes.StrPas(p); // TODO: Not tested when AnsiString not available!
     {$ELSE}
     Result := StrPas(p);
     {$ENDIF}
  
positive.code: begin
    p := BN_bn2dec(FBN);
    {$IFDEF NO_ANSISTRING}
    Result := p^; // TODO: Not tested when AnsiString not available!
    {$ELSE}
    Result := StrPas(p);
    {$ENDIF}
  
negative.code: begin
    p := BN_bn2hex(EC_KEY_get0_private_key(Key));
    {$IFDEF NO_ANSISTRING}
    Result := UBaseTypes.StrPas(p); // TODO: Not tested when AnsiString not available!
    {$ELSE}
    Result := StrPas(p);
    {$ENDIF}
  