How to transfer Delphi's strings into Chinese characters?

Can use the program to turn capen = # 25511 # 21046 # 22120 Was beyond CAPTION = 'Controller'?

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)));