在delphi 2010里把memo1里的中文保存为utf8格式，下面的方法能成功不会出现乱码

var
F : Integer;
EncodeFlag : array [0..2] of Byte;
s : UTF8String;
begin
EncodeFlag[0] := $ef;
EncodeFlag[1] := $bb;
EncodeFlag[2] := $bf;
(**************************************************
   ansi                               没有标记
   Unicode                            $FF $FE
   Unicode big endian                 $FE $FF
   UTF-8                              $EF $BB $BF
**************************************************)
F := FileCreate('C:utf8.txt');
FileSeek(F,0,0);
FileWrite(F,EncodeFlag,Length(EncodeFlag));
s := AnsiToUtf8(Memo1.TEXT);
FileWrite(F,s[1],Length(s));
FileClose(F);
end;