Насколько я понимаю, для предотвращения исключения нужно открывать диалог как модальный (xModal := TRUE)
Если возникнут какие-то дополнительные вопросы - то, пожалуйста, напишите мне в телеграм (см. в подписи).