如果你需要在每个窗体创建后还继续从窗体外操作窗体，也就是说需要给每个窗体分配一个
变量名，例如Form1、Form2……，你才需要用数组保存。
Var
PointerArr : Array [1..255] of Pointer; 定义数组，每个元素都是指针。
Counter: Integer=1; 然后定义计数器。
这两个变量一定要是全局的，不要写在某个函数里面。
用的时候（假设你要创建的窗体是TForm2类）这样写：
if Counter<255 then
begin
Array[Counter]:=TForm2.Create(nil);
Counter:=Counter+1;
end;
如果你不需要在窗体外操作这个窗体，不需要引用它，并且窗体自己关闭自己，那就没有
必要保存在变量或数组中。每次创建时就这样：
with TForm2.Create(nil) do
begin
Caption:='这是一个没有变量名的窗体';
Show;
Delay(1000);
Close;
Free;
end;
这样就可以了
