Синтакт. ошибка: ругается на несоответствие типов

[ComAlex]

Выдается ошибка Error: incompatible types: got "Byte" expected "TFPUExceptionMask" в

funcnion GetExceptionMask: TFPUExceptionMask;
begin
Byte(Result) := Get8087CW and $3F;
end;

Объявление:
TFPUException = (exInvalidOp, exDenormalized, exZeroDivide,
exOverflow, exUnderflow, exPrecision);
TFPUExceptionMask = set of TFPUException;

Подскажите, как можно исправить

[Mr.Smart]

Код: Выделить всё

function GetExceptionMask: TFPUExceptionMask;
begin
 Result :=  TFPUExceptionMask(Integer((Get8087CW and $3F)));
end;