TStrings的CommaText的用法

 procedure Split(const aString, Delimiter: string; Results: tStrings);
 begin
   Results.CommaText:='"' + StringReplace(aString, Delimiter, '","', [rfReplaceAll]) + '"';
 end;