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.