Delphiのコードの改良なら CommaTextへの代入を
ttp://www.din.or.jp/~egawa-n/delphi/func.html ここの CsvSeparateに変更すればそれでいいんじゃない？