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...