[Mick]

Para mostrar 10 forms:

for i:= 1 to 10 do begin
  with TForm1.Create(Application) do begin
       Caption:= Format('Ventana numero %d',[i]);
       Show;
  end{with};
end{for};

Saludos