程序退出是需要输入密码才能退出，如何实现？(30分)

如何实现，如果一个程序退出时必须要输入密码才能退出。

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//保存密码。
//可以写人注册表。
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
S: string;
begin
CanClose := InputQuery('请输入密码', '在此输入密码: ', S);
if CanClose then
begin
CanClose := S = '123456';
if not CanClose then
Application.MessageBox('密码不正确， 无法关闭！如果你不是电脑新手， 那么请结束进程', '警告', mb_IconWarning)
end;
end;

我已经找到解决方法，代码如下：
if trim(form1.Edit1.Text)='' then
begin
MessageBox(Handle, PChar('请输入取消运行密码！'), PChar('消息'),MB_ICONWARNING or MB_OK);
Action:=caNone;
end
else
if form1.Edit1.Text='密码' then
Action:=caFree
else
begin
MessageBox(Handle, PChar('密码输入错误，不能退出程序！'), PChar('错误'),MB_ICONERROR or MB_OK);
Action:=caNone;
end;

多人接受答案了。