DELPHI 读取TXT文件unicode乱码

var slr: TStringList;

F:TFileStream;

S:WideString;

i: integer;

const

FileName='TalkList.txt';

begin

F:=TFileStream.Create(FileName,fmOpenRead);

I:=F.Size;

SetLength(S, I div 2);

F.Read(S[1],I);

F.Free;

Delete(S,1,1);

m_haoma.Text:=S;

end.