Delphi转换文件为UTF-8的问题

将网页文件代码存在Memo里，
然后用Memo.savetofile来保存，然后用如下代码转换为UTF-8
    t:=TStringList.Create;
    t.LoadFromFile( 'C:\Apache\htdocs\ye.html');
    m:=TMemoryStream.Create;
    m.Write(#$ff#$fe,2);
    s:=t.text;
    m.Write(pwidechar(s)^,length(s)*2);
    m.SaveToFile( ''C:\Apache\htdocs\ye.html');
这样转码后，文件如果有18KB，就变成36KB了，扩大了一倍，但我用Adobe Dreamweaver CS4 或用记事本来另存为UTF-8，只增加了1KB左右请问有什么方法，谢谢！