输入法与OnChange事件的问题

Delphi(Pascal) code

procedure TForm1.Edit1Change(Sender: TObject);begin  Edit1.Tag := Edit1.Tag + 1;  Caption := IntToStr(Edit1.Tag);end;

我在输入法里输入一句话，比如“哈哈哈”，按下空格上屏后，会触发3次Change事件
我想等输入法的文字完全上屏后再触发Change事件

[解决办法]
检测输入法的输入窗体句柄是否存在后再进行其它方法