end；
end；
PRocedureTBounceThread． Execute；
begin
WhilenotTerminateddo
begin
Synchronize（MoveShape）；
end；
end；
constructorTBounceThread． Create（Suspended：Boolean；Shape：TShape；XSpeed，YSpeed：Integer）；
begin
inheritedCreate（Suspended）；
FShape：ΚShape；
FXSpeed：ΚXSpeed；｛X軸走向的速度｝
FYSpeed：ΚYSpeed；｛Y軸走向的速度｝
FreeOnTerminate：ΚTrue；
end；
end．
這是一個多線程的碰碰球遊戲，你可以有多個不同的球，它們分屬不同的線程，各自獨立的在螢幕上碰撞。顯然，由於多個球運行的顯示會同時操作VCL資源，為了安全，我們在Execute過程中的執行部分加入了Synchronize（MoveShape）來呼叫MoveShape過程，實際上，在任何需要操作VCL資源的地方，例如窗體、點陣圖，都應加入Synchronize呼叫。
執行時我們可以新建一個程序，然後在USES部分加入以上的BncThrd單元，再在它的窗體FORM1上加入兩個Shape控制項Shape1和Shape2，Shape1可以是一個矩形而Shape2是一個圓。加入以下的程式碼就可以讓矩形和圓動起來。
procedureTForm1． Button1Click（Sender：TObject）；
begin
TBounceThread． Create（False，Shape1，1，2）；
TBounceThread． Create（False，Shape2，2，3）；
end；
作者Blog： http://blog.csdn.net/zou5655/