Unterschiedliches Verhalten bei Bitverschiebung (C# / Delphi

[himitsu]

Delphi-Quellcode:

Function ArithmeticShiftRight(i: Integer; Shift: Byte): Integer;
  ASM
    SAR EAX, DL
  End;

ich hoff mal es stimmt

[add]

Delphi-Quellcode:

Function ArithmeticShiftRight(i: Integer; Shift: Byte): Integer;
  Begin
    Result := (i shr Shift) or (($FFFFFFFF * (i shr 31)) shl 32 - Shift)
  End;