[AND_REY]

Первое что пришло в голову:

Код:

Function FloatToHex(A: Real): String;
Var
 TS: TMemoryStream;
 i: Integer;
 b: Byte;
begin
 Result:= '';
 TS:= TMemoryStream.Create;
 TS.Write(A, SizeOf(A));
 TS.Position:= 0;
 For i:= 0 To TS.Size - 1 Do
  begin
   TS.Read(b, 1);
   Result:= IntToHex(b, 2) + Result;
  end;
 TS.Free;
end;