Модальные окна

[spamer]

Народ помогите. Есть две формы, одна главная, вторая - диалоговое окно.
По нажатию на кнопку динамически создаю диалоговое окно

var
    DialogForm: TDialog;
begin      
DialogForm:= TDialog.Create(Application);
DialogForm.ShowModal;
end;

На диалоговом окне есть две кнопки, Принять(ее имя btOK) и Выход(ее имя btCancel). По нажатию на кнопку принять, например просто должно изменяться свойство Caption главной формы, вот такой код я пишу для этого в обработчике события для кнопки Принять

if ModalResult = mrOK then
Form1.Caption:= 'Какой то текст';

Но проблема в том, что оно не работает, т.е. создает окно, но не изменяет по нажатию на кнопку заголовок главной формы.
В чем проблема может быть и как ее решить?

[Showy]

вроде надо так писать

var
   DialogForm: TDialog;
begin      
   DialogForm:= TDialog.Create(Application);
   DialogForm.ShowModal;
   if DialogForm.ModalResult = mrOK then
      Form1.Caption:= 'Какой то текст';
end;

[spamer]

В чем то и дело, я уже и так пробовал, все равно не работает.

[Showy]

Странно, должно работать. Вы у кнопок свойство ModalResult указали?

[spamer]

Сообщение от Showy

Странно, должно работать. Вы у кнопок свойство ModalResult указали?

Showy спс. Забыл я про свойство ModalResult. Выставил - теперь работает.