mira primero que todo, utiliza por favor las etiquetas para encerrar el codigo:
yo cambiaria algunas lineas de tu codigo algo asi:
Código Delphi
[-]
begin
Application.Initialize;
Application.CreateForm(TFrmPrincipal, FrmPrincipal);
Application.CreateForm(TFrmIngreso, FrmIngreso);
if FrmIngreso.ShowModal = mrOk then
Application.Run;
Application.Terminate;
end.
y el boton cancelar la propiedad modal result le das mrCancel
por supuesto en el de aceptar cuando asignesel valor a la variable tiene accesocambia esa linea por ModalResult := mrOk, listo