procedure TFrmLogin.BtnOKClick(Sender: TObject);
begin
  if edit1.text = '' then 
  begin
    showmessage('请输入密码!');
    exit;
  end;
  if edit1.text = '密码' then
  begin
    showmessage('请密码正确!');
    //继续写要执行的代码 
  end
  else
  begin
    showmessage('请密码不正确!');
    //继续写要执行的代码 
  end; 
end;