Konwersja HEX 44 79 AC CD z Modbus na float 998.7 w Delphi – jak napisać procedurę?

POINTER pFloat
FLOAT FL

pFloat = FL :' pFloat = adres zmiennej FL

'wpisanie liczby 0x4479ACCD pod adres <pFloat>
*<UINT>pFloat = 0x4479ACCD

setprecision 10
print FL : getch()

_asm
	mov eax,$FL
	mov dword[eax],0x4479ACCD
_endasm

var
 iValue, j : integer;
 pIntValue : ^integer;
begin
  iValue := 2001;
  pIntValue := @iValue;
  ...
  j:= pIntValue^;
end;

var
 iValue : float;
 pIntValue : ^integer; /* zwykła liczba 4-bajtowa! */
begin
  pIntValue := @iValue;
  pIntValue^ := 0x4479ACCD;
end;
*** iValue = oczekiwany wynik ***

var
 fValue: single;
 pIntValue: ^integer;
begin
  pIntValue:=@fValue;
  pIntValue^:=$4479ACCD;
end;

function TForm1.BytesToFloat(Bytes: array of byte): single;
var
 fValue: single;
 pIntValue: ^integer;
begin
  pIntValue:=@fValue;
  pIntValue^:=(Bytes[0] Shl 24) or (Bytes[1] Shl 16) or (Bytes[2] Shl 8) or Bytes[3];
  Result:=fValue;
end;

  Edit1.Text:=FloatToStr(BytesToFloat([$44,$6f,$0c,$cd]));