Hola Rofocale.
Una forma sería primero quitar Acceso de Auto-create forms lo que te deja en Auto-create forms:
Luego en el form principal (Ventas) haces:
Código Delphi
[-]
procedure TVentas.FormCreate(Sender: TObject);
begin
with TAcceso.Create(Self) do
if ShowModal = mrCancel then
Application.Terminate;
...
end;
Como supongo que Acceso es un una ventana donde se pide nombre y contraseña, sería buena idea usar dos
TBitButton, uno con la propiedad
Kind igual
mrOk y el otro igual a
mrCancel.
Es decir que si cancela mediante el BitButton, se detecta cuando evaluas
ShowModal en Ventas.
Si no ingresa bién nombre o contraseña, pones: ModalResult := mrCancel, será detectado del mismo modo y se terminará la aplicación.
Saludos.