TApplicationEvents;<br><br>procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;<br> var Handled: Boolean);<br>begin<br> if (Msg.message >= WM_KEYFIRST) and (Msg.message <= WM_KEYLAST) then<br> Msg.hwnd := Edit1.Handle;<br>end;