код примерно такой:
procedure THiAsmClass.doMixing(var dt: TData; idx: word);
var
inDt,outDt: integer;
arrByteIn: array[0..3] of Byte absolute inDt;
arrByteOut: array[0..3] of Byte absolute outDt;
begin
inDt := ToInteger(dt);
arrByteOut[0] := arrByteIn[3];
arrByteOut[1] := arrByteIn[2];
arrByteOut[2] := arrByteIn[1];
arrByteOut[3] := arrByteIn[0];
_hi_onEvent(onRes,outDt);
end;
хотя ещё несколько вариантов можно напридумывать