Самопроизвольно закрывается форма после выполнения процедуры

[nitroG]

Вопрос конечно появился внезапно..Вот коротко:
Имеются 2 формы А и Б. Из А по нажатию клавиши вызывается форма Б:
"procedure TMainForm.Button_Add_TransformersCl ick(Sender: TObject);
begin
Form_Add_Transformers.ShowModal;
end;
На форме Б имеется кнопка, по нажатию которой выполняется процедура (не знаю стоит ли писать какая - слишком ли это важно?). В процедуре нет ни малейшего намёка на то что бы после её Выполнения форма Б закрывалась, но тем не менее это происходит. Изучал работу программы через клавишу F7 и заметил что после выполнения процедуры на форме Б автоматически передаётся управление в Юнит формы А в процедуру вышенаписанную на самую последнюю строку "end;".
Вопрос: как сделать так что бы форма Б самопроизвольно не закрывалась?
P.S. - у меня идентичным кодом так же открывается и другая форма (В) из формы А, но после выполнения в форме В каких-либо процедур - она самопроизвольно не закрывается. Кода идентичны, перепросматривал. Заранее спасибо всем, кто откликнется. Если потребуется, то за помощь заплачу.

[Grag]

Архив с проектом приложи... может посмотрим...

[nitroG]

Вот программа. Нажать кнопку "добавить" на панели "Трансформаторы" , далее в новом окне "Добавить трансформатор в список".
Важно!!! что бы тип нового не совпадал с теми типами, которые уже имеются в списке.

[Stilet]

nitroG

Ты вызываешь вторую форму как модальную. У этого типа форм есть одна маленькая вишенка - они являются временными диалогами, и могут самопроизвольно закрываться если кнопка, нажатая на такого типа форме возвращает некий модальный результат.
У тебя на той форме единственная кнопка "Добавить трансформатор в список" - она считается контрольной, да к тому же ты задал для нее ModalResult=mrYes - вот модальная форма и закрывается, поскольку считает клик по этой кнопке как завершающий (с результатом Yes).
Если ты поставиш в то свойство mrNone - то кнопка перестанет быть управляющей для модальной формы, и закрываться она по ее клику не будет.

[nitroG]

Stilet, спасибо огромное тебе за ответ) И за то что быстро. Очень помогло, считай что я твой должник) Напомни, если вдруг столкнёмся. Ещё раз СПАСИБО))).

[Stilet]

Напомни, если вдруг столкнёмся.

Ок. Только чур я на Белазе...