wie mach ich einen aritmethic shift?

[Memnarch]

Nabend,
In C++ gibt es ja folgende operatoren:

<< = shl
>>> = shr
>> = ?

was ist das equivalent zum >> Aritmethic shift? in asm müsste es dafür eigentlich asr geben, aber er kennt asr nicht >.<

Kann mir da jemand helfen?

PS:
Delphi XE

MFG
Memnarch