reele tal til et binært format

En lille smule arbejde kan gøre det.
Men binært format og 4 bogstaver hænger ikke sammen.
Jeg går ud fra at du har en array of Real eller Double.
En Real fylder 8 bytes, så det bliver til hexadecimalt 16 bogstaver eller binært 64 cifre.
Sådan her:
procedure TForm1.Button1Click(Sender: TObject);
var
  r: Real;
  s: string;
  i64: Int64;
  i: Integer;
begin
  Assert(SizeOf(Real)=8, 'Rutinen skal ændres hvis en Real fylder andet end 8 bytes.');
  r := 123.456;
  Move(r, i64, 8);
  s := IntToHex(i64, 16);
  Label1.Caption := s;
  s := '';
  for i := 1 to 64 do
  begin
    if i64 mod 2 = 0 then
      s := '0' + s
    else
      s := '1' + s;
    i64 := i64 shr 1;
  end;
  Label2.Caption := s;
end;

Mange tak,

Rune