delphi 一个线程和主界面的交互的演示代码

求一个线程和主界面的交互的演示代码
求一个线程和主界面的交互的演示代码。线程和主界面处于两个Unit。线程中的user中不能引用主窗口。我只是想学习一下，线程和主界面交互的方法。去网上查了好几天资料，能查到的都是user中引用主窗口的方法。据说可以通过别的方法实现，求大神指点下了。跪求~~~

------解决方案--------------------
就用DELPHI自带的DEMO。DELPHI 7 中目录如下：
C:Program FilesBorlandDelphi7DemosThreads hrddemo.dpr 
------解决方案--------------------
让我来教你一招吧：
用类似回调函数的方法：
第一：在线程的unit中定义：TCallFunction = procedure of object;
第二：在线程类中定义一个公共变量：FCallMain: TCallFunction;
第三：在主界面unit中定义一个函数：procedure TMain.Test();  
第四：假设线程类的实例是ThreadA，让ThreadA.FCallMain=Test;
第五：在线程类就可以直接用 FCallMain了，
FCallMain的功能跟主界面的Test功能是一样的，如果Test函数有操作界面的操作，需要按照下面调用：
synchronize(FCallMain)；
明白了吧？？ 

http://www.myexception.cn/delphi/264524.html