// 字串含中文 by Aone function IsIncludeChinese(Str: String): Boolean; var i: Integer;     UCS4Str: UCS4String; begin      Result := False;     ...