乱码问题：一文本文件，用写字板打开中文显示为乱码，用记事本打开中文显示正常，所以估记该文件编码为utf8类型，那么如何用stringlist加载该文本文件后，读出正确的内容并修改后再用savetofile保存呢？

现在用stringlist.loadfromfile该文件后，发现只要有汉字的地方就是乱码，无法修改，如何才能让其显示正常？另外显示正常后，我还要修改某些项的值，然后再保存为同原格式一样的格式。我用的代码如下：
var
s:tstringlist;
x:integer;
begin
  s:=tstringlist.create;
  s.loadfromfile('d:\a.txt');
  for x:=1 to s.count do begin
    showmessage(s[x-1]);
  end;
end;现在我仍希望用如上的方法读写该UTF8文件，只是如何对付其显示为乱码的问题呢？