输入法与OnChange事件的有关问题

输入法与OnChange事件的问题
Delphi(Pascal) code

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



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

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