· 声明了一个创建抽象产品对象的接口：tabstractformbuilder
¨ 类tabstractformbuilder有三个抽象的工厂方法createform、createspeedbutton、createedit、createedit
· tblueformbuilder、tredformbuilder用来实现创建具体产品对象的方法
运行的时候，客户程序调用一个具体类的公共构造器来创建它某一些部分，具体的构造器实例的调用方法如下：
procedure tform1.create3componentformusingbuilder(abuilder: tabstractformbuilder);
var
newform: tform;
begin
with abuilder do begin
createform(application);
createedit;
createspeedbutton;
