键盘没响应(100分)

使用多线程访问数据库，出来键盘无响应的问题，请高手解决。代码大致如下：
var
conn:TADOConnection;
rdset:TADOQuery;
begin
conn := TADOConnection.Create(nil);
conn.ConnectionString := '某个值';
conn.Open();
while not Terminateddo
begin
rdset.connection := conn;
//下面执行数据库操作
end;
//后面释放
end;

问题好像是一旦输入法切换一下后，界面就没响应了，不过这个线程还是可以中断进去的。

说实现的好像没明白你的意思呀!
你可以这样在whiledo
循环里加上一句
Application.ProssMessage;
试试看是不是你要的效果呀!