InputBox 缺字

在Delphi中使用inputbox時，
若欲顯示的字串為中文時，會發生掉字的問題，
這是因為inputbox上預設的字型為英文字，
遇到中文字會有長度判斷上面錯誤的問題，
有兩種方式解決這樣的問題，

一、利用Delphi內建變數DefFontData.Name修改預設字型

DefFontData.Name := 'MingLiU';//**細明體

二、在字串後方加上兩個空白字元