- procedure NormalizeVector(var v : TVector);
 - //   Result:=VectorLength(v);
 - //   ScaleVector(v, 1/Result);
 - asm
 -      FLD  DWORD PTR [EAX]
 -      FMUL ST, ST
 -      FLD  DWORD PTR [EAX+4]
 -      FMUL ST, ST
 -      FADD
 -      FLD  DWORD PTR [EAX+8]
 -      FMUL ST, ST
 -      FADD
 -      FLD  DWORD PTR [EAX+12]
 -      FMUL ST, ST
 -      FADD
 -      FSQRT
 -      FLD1
 -      FDIVR
 -      FLD  ST
 -      FMUL DWORD PTR [EAX]
 -      FSTP DWORD PTR [EAX]
 -      FLD  ST
 -      FMUL DWORD PTR [EAX+4]
 -      FSTP DWORD PTR [EAX+4]
 -      FLD ST
 -      FMUL DWORD PTR [EAX+8]
 -      FSTP DWORD PTR [EAX+8]
 -      FMUL DWORD PTR [EAX+12]
 -      FSTP DWORD PTR [EAX+12]
 - end;
 
