解決粘貼中文字符串亂碼問題

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