关于Delphi执行存储过程时，进度条显示

在项目中我使用的多线程方式来执行存储过程，由于需要一定的时间，所以我希望在界面上有进度条的显示功能，进度的显示不需要准备，只要让客户觉得程序在执行便可以了，进度条可以是显示百分比进度的那种或者那种直接来回循环滚动的也行，希望高手不吝赐教！希望能贴出代码 谢谢！ 在项目中我使用的多线程方式来执行存储过程，由于需要一定的时间，所以我希望在界面上有进度条的显示