远程登录数据库服务器的问题。

通过修改工程文件，实现了一个自定义的登录窗口利用赋值的方式登录远程数据库服务器，在登录成功以前，在登录窗的状态栏中提示“正在登录服务器， 请稍侯”的字样。我在数据模块的ADOConnection的beforeConnect事件中给状态栏赋值，同时将鼠标形状改为crHourGlass。可在执行的时候没有出现我想要的结果，有朋友知道是什么原因的吗？