怎么写个用户登陆的线程

如何写个用户登陆的线程？
新手问题。比较初级的问题。我的是三层程序。当前，用户登陆的时候，因为要连接到远程的服务器，所以，比较慢，一干别的就是一片空白，看着不舒服，据说，可以用线程的方式，这样会好，不知道该怎么写这种线程？？

------解决方案--------------------
把登陆代码写成函数后面加上stdcall,然后调用线程函数
CreateThread(nil, 0, @函数名, nil, 0{0表示立即执行}, id{dword});