Prueba algo como esto, usando la función
lo que devuelve el byte de menor orden, y "corriendo" el número hacia la derecha a saltos de 8 bits mediante
shr:
Código:
var
L : DWORD;
begin
L := Buffer^;
Aux[7] := Lo(L);
L := L shr 8;
Aux[6] := Lo(L);
L := L shr 8;
Aux[5] := Lo(L);
L := L shr 8;
Aux[4] := Lo(L);
...
end;
Lo he hecho al revés, desde el 7 al 4, aunque también existe la función
Hi que decuelve el Byte de mayor orden, pero ocurre que está pensada para un entero de 2 bytes (Smallint) y no serviría para el tipo DWord.