原文:function SplitString(const Source, ch: string): TStringList;