复制文字出现乱码,字符串中文乱码如何解决

if ((ssCtrl in Shift) AND (Key = ord('V'))) then begin i_xm.Clear; str:=Trim(clipboard.AsText); i_xm.Text:=UTF8Decode(str); end;