下面介绍Delphi自带的字符串分割函数，根据你的需要来使用。
1、ExtractStrings
function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;
第一个参数是分隔符，可以是多个，例如 [';',',',':'] 可以按分号、逗号、分号来同时分割。
第二个参数是开头被忽略的字符，例如['<','>','']，被分割出的字符，如果开头有大于号，小于号，或者分号，被分割出来后会被忽略。
第三个参数是被分割的字符串。
第四个参数返回分割出的字符串数量。
注：该函数只能按单个字符进行分割，不能按字符串进行分割。
2、SplitString
function SplitString(const S, Delimiters: string): TStringDynArray;
第一个参数是被分割的字符串。
第二个参数是分隔符，可以包含多个分隔符，例如';,:'，可以按分号、逗号、分号来同时分割。
返回值是分割的结果。
注：这个函数在早期的Delphi中没有，跟ExtractStrings的用法相近，参数更少，使用更方便一些，要引用这个单元System.StrUtils
3、使用正则式 TRegEx.Split
function TRegEx.Split(input, pattern : string): TArray<string>
第一个参数是被分割的字符串。
第二个参数是分隔符。
注：该函数可以完全替代上面两个函数，正则式的功能很强大，上面两个函数只能按某几个字符进行分割，正则式则可以按字符串、或者匹配字符串进行分割，需要引用单元 RegularExpressions，在Delphi XE以及以后版本中包含正则式。
来源：https://www.cnblogs.com/jijm123/p/12310443.html