Prueba con esta función que he creado sobre la marcha:
Código:
Function HexToInt(S:String):LongInt;
begin
Result:=StrToInt( '$'+Copy( S, 1, Length(s) ) )
end;
Como es lógico habrás de pasarle el número en Hexadecimal, por lo que queda de tu cuenta utilizar el código oportuno para quitar los guiones, que supongo son separadores.
Un Saludo.