Delphi中WideString类型如何转化成String类型

var   
      wstr:WideString;   
      str:string;   
  begin   
      str:=WideCharToString(PWideChar(wstr));   
  end;