[lmikle]

Сообщение от SpectraL

lmikle, твой код не работает. Что это такое: I := ^Byte(E)?

Да, попутал немного, не проверил, когда писал.
Можно вот так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  E : Extended;
  I : PChar;
  J : Integer;
  S : String;
begin
  S := '';
  E := 123.456789;
  I := @E;
  For J := 0 To SizeOf(Extended)-1 Do
    Begin
      S := S + IntToHex(Byte(I^),2) + ' ';
      I := I + 1;
    End;
  Edit1.Text := S;
end;

Кстати, более правильная версия, т.к. на 64 бита длинна Extended почему-то 8 байт.