delphi模仿google的suggest出现的问题,如何将光标一直定位在文本框中?

一个文本框,每输入一个字符后,查询数据库,然后动态创建一个窗口,窗口里面是一个dbgrid,当窗口弹出后,dbgrid就会得到焦点,同时文本框就失去焦点,无法再继续输入字符了,而google的suggest功能,即使弹出搜索提示后,文本框仍然可以输入字符,即按上下箭头,光标也依然定位在文本框中.
我的问题是,当动态窗口出现后,以及使用上下箭头移动时,如果能让光标继续定位在文本框中.