32bit Shift Arithmetic Right.
Source position: systemh.inc line 1180
function SarLongint( 
const AValue: LongInt; 
const Shift: Byte = 1 
):LongInt; 
SarLongint performs an arithmetic right shift for Shift positions on a 32bit integer AValue and returns the result. Shift is optional, and is 1 by default. The difference with the regular Shr shift operation is that the leftmost bit is preserved during the shift operation.

8bit Shift Arithmetic Right. 


16bit Shift Arithmetic Right. 


64bit Shift Arithmetic Right. 