timeid:=timeid+1;
  adotable1.Append;
 adotable1.FieldByName('Name').AsString :=user.Text;

 if(user.text=adotable1.fieldbyname('Name').asstring )
     and (password.text=adotable1.fieldbyname('Mima').asstring)
  then
  begin
  Modalresult:=mrOK;
 end
 else
 begin
 if timeid>3 then
 begin
  application.Terminate ;
 end
 else if user.text<>adotable1.FieldByName('Name').asstring then
  begin
   application.MessageBox('非法用户名，请输入正确的用户名!','用户名',
      MB_OK+MB_ICONEXCLAMATION);
   user.SetFocus;
   end
   else
   begin
   application.MessageBox('输入密码错误，请再输入一次','密码',
      MB_OK+MB_ICONEXCLAMATION);
   password.SetFocus;
   end;
   end;
end;
这是一个登陆界面，确定按纽的程序，能帮我看看为什么我每次按确定时，它都会弹出密码错误的对话框
并且不关是错误的用户名还是密码都能进入系统。