[ArtIntellAnd]

Решено, кому нужно вот решение:
var
d8: array [0..7] of Byte;
D:double absolute d8;