如何将Delphi的字符串直接转成汉字?

能用程序把caption = #25511#21046#22120 转成 caption = '控制器'吗？

var
  lpStr : WideString;
begin
  setlength(lpstr, 3);
  lpStr[1] := #25511;
  lpStr[2] := #21046;
  lpStr[3] := #22120;
  caption := lpstr;
*****************************************************

caption := WideString(#25511) + WideString(#21046) + WideString(#22120);
***********************************************************************************

begin
  ShowMessage(string(WideChar(20320)) + string(WideChar(22909)));
end;