Delphi是否可以动态创建函数？

Delphi是否可以动态创建函数？
能否实现这样的功能：
线程中动态创建TCPClient，然后动态创建进度条，进度条实时显示通讯进度。
我的思路是想写一个onWork函数，然后传递进度条参数给这个函数。由于自己写的onwork函数必须和TCPClient的onwork事件参数一样，这样就无法传递动态创建的进度条对象了。
或者动态创建函数不是个好主意？