[Shoni]

Всем доброго времени суток!

Создается что-то вроде MessageDialog, куда пользователь вводит данные, если они были введены неверно, по нажатию ок MessageDialog не должен закрываться.

Код:

var

  AMsgDialog: TForm;
  AMaskEdit: TMaskEdit;
  CanClose: boolean;
..............................................
begin
.............................................
AMsgDialog := CreateMessageDialog(#10 + #13+'Ââåäèòå êëþ÷!' + #10 + #13+ #10 + #13+ #10 + #13, mtInformation , [mbYes]);
              AMsgDialog.OnCloseQuery( AMsgDialog , CanClose);

                with AMsgDialog do
                  try
                     ............................................. 
                      with AMaskEdit do
                          begin
                              Parent := AMsgDialog;
                              .............................................
                          end;
                      case ShowModal of
                          ID_Yes: (тут если условие выполняется - то разрешить закрытие, иначе - выдать сообщение ) ;

На строчке

Код:

AMsgDialog.OnCloseQuery( AMsgDialog , CanClose);

программа вылетает, помогите, кто чем может, зхаранее спасибо...
П.С. Варианты типа ИнпутКвери и ИнпутБокс не предлагать