Переворачивание регистров

[Валенок]

К примеру эта же функция с пресловутыми двумя тысячами

))) Картинка ни о чем.
Вы путаете ЗНАЧЕНИЕ и ПРЕДСТАВЛЕНИЕ. Для dword - они совпадают (исторически сложилось)
Но для ТС при получении данных с ai нужно переставить слова не ЗНАЧЕНИЯ (как на картинке), а в ПРЕДСТАВЛЕНИИ real. А оно на картинке - отсутствует.

Все работает, много лет.
Из данных пишется график, архив и пр...
А выглядит это так:
A1_p:=Mantisa; (*присваеваем значение регистра 108 промежуточной переменной*)
..
VAR_OUT:=DWORD_TO_WORD(A7); (*Упаковываем значение в 1 регистр*)

Не сомневаюсь что это работает, но задачу ТС по перестановке регистров (слов) в ПРЕДСТАВЛЕНИИ можно решить не зная формата ПРЕДСТАВЛЕНИЯ. Достаточно знать что это 4 байта. Например:

ai:real;
p: pointer to dword; //Вы, кстати, без указателей не обошлись ))

p:=adr(ai);
p^:=rol(p^,16); //всё