delphi 密码输错三次提示

var

Ftimes :integer;

if Ftimes < 3 then
begin
if mm <> trim(password.text) then 
begin
showmessage('密码不对，请重新输入');
password.setfocus;
inc(ftimes); 
end
else
begin
showmessage('密码正确');
ModalResult := mrOk;
end;
end
else
begin
showmessage('密码已经输错三次，请与管理员联系');
Application.Terminate;
end;