Вот заглядываю в эту тему с самого её появления и не пойму, что конкретно хочет ТС и зачем. Ну да ладно.
Вот так получается результат требуемый ТС.
Код:
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;