delphi 16进制表示的double型怎么转换成double型？

delphi 16进制表示的double型如何转换成double型？？
double型数据 3 的16进制表示为：00 00 00 00 00 00 08 40


如何将这个16进制转换成3啊。。，，。？

[解决办法]
哦，漏了个Result := fDouble;
[解决办法]
上面的
temp:='0000000000000840'; 是temp:=stringreplace(s,' ','',[rfReplaceAll]);的结果,可以去掉