Kaip uzdaryti Delphyje aboutbox langa?

Kaip uzdaryti Delphyje aboutbox langa?

Paspaudus ok mygtuka atsidaro kitas langas bet aboutbox neuzsidaro.Panaudojus procedura close užsidaro visa programa.Kaip pasielgti?

With(ApieBoksoDialogoLangas) try ShowModal finally free end; ApieBoksoDialogoLangas - tai kaip tu pavadinai formą.

Ai tiesa. Taigi nebandei rašyti nepagrindinėj klasėj, o TAboutBox klasėj OnExit metode Close.