[lmikle]

Ну, если тебе бинарное, то как-то так:

Код:

var
  E : ^Extended;
  I : ^Byte;
begin
  E^ := 123.4567890;
  I := ^Byte(E);
  For I := 0 To 9 Do
    Begin
      Writeln(IntToStr(I));
      I := I+1;
    End;

Двоичный код уж сам как-нить "выдерешь".