SetOf typecasten in LongInt

[Codehunter]

Hallo!

Wie kann ich folgenden (auszugsweisen) Lazarus-Code nach Delphi übersetzen?

Delphi-Quellcode:

type
  TSynEditMarkChangeReason =
    ( smcrAdded, smcrRemoved,
      smcrLine, smcrColumn,
      smcrVisible,
      smcrChanged
    );
  TSynEditMarkChangeReasons = set of TSynEditMarkChangeReason;

var
  I: LongInt;
  R: TSynEditMarkChangeReasons;

begin
  I:= LongInt(R);  // <-- Hier kommt "ungültige Typumwandlung"
end;

SetOf ist ja eigentlich kein Ordinaltyp und kann daher in Delphi so auch nicht gecastet werden. Bei Lazarus (FPC) scheints ja zu gehen. Die Frage ist nun, wie kann man das übersetzen?

Grüße
Cody