怎么样控制输入的符号的半全角(100分)

怎么样能够控制edit里面的内容输入时，只能输入半角符号，不能输入全角符号？？

在edit的onchang事件中写代码,设定输入法只能是半角符号,否则提示出错.

转为半角输入:

uses imm32;

var
h: HIMC;
fdwConversion,
fdwSentence: DWord;
begin
h := ImmGetContext(Handle);
if h <> 0 then
if ImmGetConversionStatus(h, fdwConversion, fdwSentence) then
ImmSetConversionStatus(h, fdwConversion and (not IME_CMODE_FULLSHAPE), fdwSentence);
end;