标段名，特殊汉字问题

Forms/NewProjectFrm.pas

@@ -74,7 +74,7 @@ end;
 
 function TNewProjectForm.CheckLegalChar: Boolean;
 begin
-  Result := CheckFileNameLegal(GetValue);
+  Result := CheckFileNameLegal(AnsiToUtf8(GetValue));
   if not Result then
     labTip.Caption := '不能包含特殊字符[/ \ : * ? " < > |],请重新输入!';
 end;