如何实现生动的等待界面

大家好。请教一个问题。我现在用delphi调用vc的DLL。调用DLL的一个函数时，因为这个函数需要执行一段时间。我想在delphi中，这段时间显示一个等待页面，页面播放GIF。这样就给用户感觉程序在运行不是死机了。有没有好的办法实现。现在的问题是调用函数时，主程序等待函数返回，就卡机了，一直要函数返回。用线程来刷新界面，但消息堵塞，窗体收不到刷新消息。