[SpectraL]

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

Код:

type
  PByteArr = ^TByteArr;
  TByteArr = array [0..9] of Byte;
var
  e: Extended;
  pe: PByteArr;
  i: Integer;
begin
  e:=Pi;
  pe:=@e;
  for i:=0 to 9 do
  begin
    Memo1.Text:=Memo1.Text+IntToHex(pe^[i], 2)+' ';
  end;
end;

Возвратило '35 C2 68 21 A2 DA 0F C9 00 40'. Преобразование каждого шестнадцатеричного числа в двоичный код не привело к равенству со значением 3.1415. Что нужно сделать?