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;

https://www.cnblogs.com/GodPan/p/4535718.html