DELPHI7加載UNICODE編碼格式的TXT顯示為亂碼的解決方法

DELPHI7的STRING默認是ANSI編碼，加載UNICODE編碼格式的TXT顯示為亂碼，解決方法如下：

procedure TForm1.Button1Click(Sender: TObject);
var
F:TFileStream;
S:WideString;
I:Integer;
FileName:string;
begin
FileName := ExtractFilePath(Application.ExeName)+'20151214003.txt';
F:=TFileStream.Create(FileName,fmOpenRead);
I:=F.Size;
SetLength(S,I div 2);
F.Read(S[1],I);
F.Free;
Delete(S,1,1);
Memo1.Text:=S;
end;