delphi - rtti を使用して動的配列に値を設定する方法は?

Question

私はこのようにしようとしていますが、サイズは0のままです

  v := _RttiFld.GetValue(obj);
  P := v.GetReferenceToRawData;
  idx := 2; //to test
  DynArraySetLength(p,v.TypeInfo,1,@idx);
  Assert(_RttiFld.GetValue(obj).GetArrayLength > 0);

私のフィールドは文字列の動的配列です

FMensage : array of string;