[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;

Ну вот этот точно работает, но не решит проблемы со сравнением вещественных чисел.