Прочитать - XP,TI,TD
Записать:
pxpointer to float;

pxp:=adr(myreg.xp);
pxp^:=20;