Delphi xe8 分割字符串太方便了

procedure TForm1.Button2Click(Sender: TObject);
var
  m_Str: string;
  m_StrList: TArray<string>;
  I:Integer;
begin
  m_Str := Memo1.Text;
  m_StrList := m_Str.Split(['n你好', '啊&']);
  for I := 0 to High(m_StrList) do
  begin
    Memo1.Lines.Add(m_StrList[I]);
  end;
end;