16バイトの境界上のSSE2データアライメントの手動修正に代わる

Question

次のマニュアルの修正に代わるものはありますか？

// 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;

このコードは、手順または関数のいずれかに埋め込まれていることに注意してください。