Crear Forms en forma DINAMICA

[vic_ia]

hola...

no soy muy diestro en esto pero creo que en tu codigo estas en lugar de crear una sola ventana lo que estas haciendo es crear tres ventanas y a cada una le estas "haciendo" algo distinto creo que al menos esta parte del codigo debiera aparecer como

Código Delphi [-]
begin
  ...

  with TFOrm.Create(Application) do
  begin
     Name    := Edit1.Text;
     Caption := Edit1.Text;
     Show;
  end;
  ...
end;

saludos...