Solve the astext method garbled problem of Delphi clipboard

2. UseDelphiThe astext method of the clipboard will cause non-English garbled characters. How can this problem be solved? Use Unicode instead.
6. Procedure setclipboardtext (astr: string );
8. VaR// Setbuffer (cf_text, pchar (value) ^, length (value) + 1 );
10. Data: thandle;
12. Dataptr: pointer;
14. Size: integer;
16. Wstr: pwidechar;
18. Begin
20. Size: = length (astr )*4;
22. Wstr: = allocmem (size );
24. Try
26. // Convert to Unicode
28. Stringtowidechar (astr, wstr, size );
30. Openclipboard (0);
32. Emptyclipboard;
34. Data: = globalalloc (gmem_moveable + gmem_ddeshare, size );
36. Try
38. Dataptr: = globallock (data );
40. Try
42. Move (wstr ^, dataptr ^, size );
44. Setclipboarddata (cf_unicodetext, data );
46. Finally
48. Globalunlock (data );
50. End;
52. Except
54. Globalfree (data );
56. Raise;
58. End;
60. Finally
62. Closeclipboard;
64. Freemem (wstr );
66. End;
68. End;