先再declare local external functions 中调用函数
subroutine getbm(string str ,ref string strout, long sel ) library "AutoWBPY.dll";
getbm( var str : shortstring ; sel : integer);
注意：函数名为小写
str : 输入汉字字符串，返回编码串；
sel : 取码方式选择；
sel := 1 取五笔头码;
sel := 2 取五笔全码;
sel := 3 取拼音头码;
sel := 4 取拼音全码.
