解决粘贴中文字符串乱码问题

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