Valor entero de TValueSign

[aggg63]

Hola.

La funcion sign devuelve el tipo TValueSign definido como

type
    TValueSign = -1..1;

He intentado varios cast de TValueSign pero no funcionan. ¿Como puedo obtener el valor entero de TValueSign de una manera sencilla? Sin hacer una funcion Signo del tipo

if x=0 then
   return:=0
else if x>0 then 
   return:=1
else
   return:=-1;

Gracias.