Pls correct these functions of float number (type: double) under binary form in delphi

Question

I\'ve written 2 functions to convert a float number into/from binary, but the result is incorrect. Please help me to find its bug. (I found some FAQ for this topic, but they was