窗口弹出问题`

Question

做了个程序form3做登入窗口 然后进入form1..在form1的mainmenu1里有个密码修改(form4.showmodal);
现在问题是我那个密码修改窗口.一修改密码..在验证密码时.提示错误时...马上关闭form4..只显示form1
密码修改窗口我现在就搞个最简单的showmessage也是这样.请告诉知道的告诉一下。 谢谢
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
if (trim(maskedit1.Text)<>form4.adoquery1['password']) then
  showmessage('fff')
 //Application.MessageBox('原始密码错误！','提示信息', 0 + MB_ICONINFORMATION)
//maskedit1.SetFocus
//maskedit1.Clear//else//if (trim(maskedit1.Text)=form4.adoquery1['password']) and (maskedit2.text=maskedit3.text)
 //then
 //showmessage('00');
end;