//要执行保持的TStringList
Var sList: TStringList;
//这句话是关键,确保保存后的文件是UTF-8,不是UTF-8 BOM格式
sList.WriteBOM := false;
sList.SaveToFile( 'd:\demo.txt',TEncoding.UTF8);