Alternative à la fixation manuelle de l'alignement des données SSE2 sur une limite de 16 octets

Question

Existe-t-il une alternative à la fixation manuelle suivante:

// excerpt adapted from SIMDTest in   
// http://www.mccauslandcenter.sc.edu/mricro/obsolete/graphics/simdtest.zip
//
var
  lAdblRAp, lArraySz, lAdblRA, Doublep: LongInt;
begin
  // ...
  GetMem(lAdblRAp,(lArraySz * SizeOf(Double)) + 32);
  lAdblRA := Doublep((Integer(lAdblRAp) and $FFFFFFF0) + 16);
  // ...
end;

Notez que ce morceau de code est complété soit dans une procédure, soit dans une fonction.