Sto realizzando un programmino in Delphi... Ho creato un form nel quale andrà la licenza con i pulsanti "Accetta" e "Rifiuta". Stavo cercando un modo per far caricare il form all'avvio prima degli altri, e se l'utente clicca su Accetta, il caricamento prosegue, altrimenti si chiude il programma.

Ecco il codice:

codice:
        Application.Initialize;
        Application.Title := 'TitoloProgramma';

         { crea ti vari form }

        Application.CreateForm(TFormLicenza, FormLicenza); {crea il form con la licenza}

        if FormLicenza.ShowModal = mrOK then
            Application.Run
         else
            Application.Terminate;
Lì per lì funziona. Se l'utente clicca su "Accetta" compare il form principale, altrimenti sparisce tutto. Il problema è che dopo qualche secondo appare il classico errore di Windows di quando un'applicazione dev'essere terminata, e se clicco su "Chiudi" riappare di nuovo, all'infinito...

Cos'è che sbaglio?