为什么会这样 stack overflow ！！！

这样一段代码，便以通过，但是执行时提示 stack overflow 错误。
请教一下，为什么会这样？
if user.login(edtUser.Text,edtPassword.Text) then
    lbluser.Caption:=user.user
  else
  begin
    showmessage('错误的用户名和密码');
    exit;
  end;function TPerson.login(user, password: string): boolean;
begin      if (user=Fuser) and (password=Fpassword) then
        login:=true
      else
        login:=false;
end;