[dr. F.I.N.]

Вот заглядываю в эту тему с самого её появления и не пойму, что конкретно хочет ТС и зачем. Ну да ладно.
Вот так получается результат требуемый ТС.

Код:

type
  TExtendedAsByteArray = array[0..SizeOf(Extended) - 1] of Byte;

var
  EaBA: TExtendedAsByteArray;
  ext: Extended;
  i: Byte;
  s: string;
begin
  ext := pi;
  System.Move(ext, EaBA[0], SizeOf(Extended));
  s := '';
  for i := 0 to SizeOf(Extended) - 1 do
    s := s + IntToHex(EaBa[i], 2)  + #32;
  ShowMessage(s);
end;