Amount shr 16如果Amount是Float类型，如何解决

Amount shr 16如果Amount是Float类型，怎么解决？
Amount := StrToInt64(tA.Text);
tmp[0] := $E2;
tmp[1] := (Amount shr 16) and $FF; // Amount MSByte
tmp[2] := (Amount shr 8) and $FF; // Amount middle byte
tmp[3] := Amount and $FF;

如果Amount是Float类型，怎么解决？这个例子是var Amount:DWORD;
欢迎贴代码，谢谢！

[解决办法]
左移，右移就是相当于整数的乘除，或者结合位与打操作取某个字节或某个字节的某几位。浮点数是不能的，除非你找到这个浮点数指针，用二进制值硬要做这个操作，但这就没意义了。