Formulario de login!!

[MITOPE]

Amigos Disculpen que me meta en su conversacion, pero tambien necesitaba algo asi , probe y me funciono , lo que no se es que poner en el boton cancelar del formulario login, solo trabajo con el principal y el form del login

begin
Application.Initialize;
Application.CreateForm(TFrmPrincipal, FrmPrincipal);
Application.CreateForm(TFrmIngreso, FrmIngreso);
FrmIngreso.ShowModal;
if FrmIngreso.TieneAcceso then
Application.Run
else
Application.Terminate;
end;
end.

En el boton cancelar puse esto pero me sale un error 'EAcces violation....'

Begin
Acceso := False;
Close;
end;

el error me sale justo despues de ejecutar correctamente el comando 'Application.Terminate', cuando se ubica en el End..como que quisiera ejecutar algo mas...que no se que es , no se si me pueden ayudar