このスレにはアマチュアしかいないのか?
プロなら数秒でこのコードがひらめかなきゃ嘘
Format('#%06X', [htonl(h) shr 8])