Código Delphi [-] Application.Initialize; Application.CreateForm(TFLogin, FLogin); Respuesta := FLogin.ShowModal; if Respuesta = mrOK then begin FLogin.Destroy; Application.CreateForm(TForm1, FForm1); Application.Run; end else Application.Terminate;
Application.Initialize; Application.CreateForm(TFLogin, FLogin); Respuesta := FLogin.ShowModal; if Respuesta = mrOK then begin FLogin.Destroy; Application.CreateForm(TForm1, FForm1); Application.Run; end else Application.Terminate;