Aquí tienes un truco para pasar un número de Hexadecimal a Decimal.
Código:
procedure TForm1.Button1Click(Sender: TObject);
Var
MiHexa:String;
Hexa2Dec:Integer;
begin
MiHexa:='FFFF';
Hexa2Dec:= StrToInt( '$'+MiHexa);
ShowMessage(IntToStr(Hexa2Dec));
end;
Un Saludo.