public
constructorCreate（Suspended：Boolean;Shape：TShape;XSpeed，YSpeed：Integer）;
propertyShape：TShapereadFShape;
end;
implementation
procedureTBouad．MoveShape;
var
MaxHeight，MaxWidth：Integer;
begin
withFShapedo
begin
Left：ΚLeft＋FXSpeed;
Top：ΚTop＋FYSpeed;
if（LeftΙ0）or
（Left＋WidthΛParent．Width）then
FXSpeed：ΚFXSpeed＊－1;
if（TopΙ0）or
（Top＋HeightΛParent．Height）then
FYSpeed：ΚFYSpeed＊－1;
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;
