type <br> tTread1=class(TThread)<br> private<br> protected<br> procedure Execute;override;<br>end;<br>procedure TThead1.excute;<br>begin<br> 调用函数1<br>end;<br>再用相同方定义第二个线程对象<br> 然后在onFormcreate中<br> Thread1:=tthread1.Create(true);<br> Thread2:=tthread2.Create(true);<br>然后再在Ontimertimer中<br> Thead1.Resume();<br> Thead2.Resume();<br>注意线程之间的同步,上面的只是一个方法,具体还有一些要注意,不明白的话还得看书和帮助