Validar Una ContraseÑa Y Cerrar La Ventana De Inicio De Sesion

[TrUnkS]

Hola. Para que mi ventana de INICIO DE SESION se oculte (sin destruirla) cuando le doy en ACEPTAR, pongo este código en el evento Onclik del boton ACEPTAR o en otro evento?

Código Delphi [-]
Application.Initialize;
    with FSesion.Create(nil) do begin //FSesion=nombre Form INICIO SESION
      if ShowModal=mrok then begin
        frmPantEntr:=TfrmPantEntr.Create(nil);
        Application.CreateForm(TFPrincipal, FPrincipal); //FPrincipal=nombre Form que aparece después 
                                                //del logueo al pinchar en boton ACEPTAR
        FreeAndNil(frmPantEntr);
        Application.Run;
      end else
      begin
        application.Terminate;
      end;//If
    end;//With