Bitmuster eines Single Berechnen

[Corpsman]

Hossa ich will das Bitmuster eines singles berechnen und als String ausgeben

dabei habe ich mir gedacht mache ich das so :

Delphi-Quellcode:

Function BinFtoString(d: single): String;
Var
  i, j: integer;
  k: ^integer;
Begin
  result := '';
  k := @d;
  j := k^;
  For i := 0 To 31 Do Begin
    If (j And $70000000 = $70000000) Then
      result := result + '1'
    Else
      result := result + '0';
    j := j Shl 1;
  End;
End;

nur kommt da leider nicht das Richtige raus, habt ihr ne Idee ?