汉字笔画，up有分

在窗体上放置2个edit，在edit1中用户不论输入繁体字还是简体字，edit2中将显示正确的笔画，请问代码如何写？up一律有分，解决问题者单独送100分。
注1：baidu出来的通用函数function GetBiHua(chnstr:string):integer;我测试了不支持繁体。
注2:baidu:利用排序规则特点计算汉字笔画和取得拼音首字母文章说采用他的方法支持计算繁体字笔划，但实现环境是sql，我希望能脱离sql环境，在delphi中实现。要详细代码，谢谢！我的qq：2564540。