procedure CreateForm(FormClass:TFormClass;Var reference);
作用：在应用程序中创建一个新的窗体
在其参数中FormClass用来制定窗体类型，而Reference是所建立
窗体的一个变量。
动态建立窗体
program project;
...
begin
  application.initialize;
  application.CreateForm(TForm1,Form1);
  //省略Form2,Form3的建立
  application.Run;
end;
Unit Unit1;
....
implementation
uses
 unit2,unit3;
{$ *.DFM}
Funcation Hasform(a:String):boolean;
 var
  R:Boolean;
  X:Integer;
 Begin
   r:=false;
   for x:=0 to screen.formcount-1 do
     begin
      if screen.forms[x].name =a then
         r:=true;
        
     end;
   result:=r;
 End;

procedure form1.button1click(sender :tobject);
begin
if not hasform(''''form2'''') then
   begin
    applicaton.createform(Tform2,form2);
    showmessage(''''Form2窗体建立!'''');
   end;
end;
procedure form1.button2click(sender:tobject);
begin
 if not hasform(''''Form3'''') then
   begin
   application.createform(Tform3,form3);
   showmessage(''''Form3建立!'''');
   end;
end;