紧急求救！

I := 1;
  Long := Length(str);
  while i <= Long do
  begin
// 获得接收窗口的句柄
    GetCursorPos(mPoint);
    DTWND := WindowFromPoint(mPoint);
//发送虚拟键盘
    SendMessage(DTWND, WM_IME_CHAR, ord(str[i]), 1);
    i := i+1;
  end;
str序列号字符串，这段代码在Timer.OnTimer事件中。
这段代码是实现序列号自动输入器的功能，这个代码在记事本中可以成功运行，但在含有多个Edit的序列号界面中却只能实现在第一个Edit中输入而在以后的Edit中就不模拟键盘的输入
请各位高手赐教！