窗口自动关有关问题

窗口自动关问题
//我在主窗体的《修改密码》按钮里用以下代码（主窗体的FormStyle:=fsMDIForm)
procedure   Tmainform.SpeedButton1Click(Sender:   TObject);
begin
    MyUserPassword:=TMyUserPassword.Create(self);
    MyUserPassword.ShowModal;
end;
//在《修改密码》窗体的取消按钮代码
procedure   Tmyuserpassword.BitBtn2Click(Sender:   TObject);
begin
    Edit1.Text:= ' ';
    Edit2.Text:= ' ';
    Edit3.Text:= ' ';
end;
//在《修改密码》窗体里的确定按钮里的代码
procedure   Tmyuserpassword.BitBtn1Click(Sender:   TObject);
begin
    if   trim(Edit3.Text)=trim(Edit2.Text)   then
        begin
            Query1.Close;
            Query1.SQL.Clear;
            Query1.SQL.Add( 'select   *   from   myuser   where   用户名= ' ' '+(myusername)+ ' ' '   and   upassword= ' ' '+trim(Edit1.Text)+ ' ' '   ');
            Query1.Open;
                if   not   Query1.Eof   then
                    begin
                        Query1.Close;
                        Query1.SQL.Clear;
                        Query1.SQL.Add( 'update   myuser   set   upassword= ' ' '+(Edit3.Text)+ ' ' '   where   用户名= ' ' '+(myusername)+ ' ' '   ');
                        Query1.ExecSQL;
                        ShowMessage( '密码修改成功! ');
                    end
                else
                    begin
                        ShowMessage( '你输入的原密码错误 ');
                    end
            end
    else
        begin
            ShowMessage( '新密码和确认密码不一样!请检查! ');
        end
end;


//问题出来了：不论是按这《取消》按钮，还是ShowMessage！窗体都会自动关了！
然后回到主窗口里去了！麻烦大家帮帮忙，我是新手啊！


[解决办法]
看看你这个 "修改密码 "窗体里的那两个按钮的ModalResult值是什么？如果不是mrNone，肯定关掉该窗口的。