我刚使用delphi,求助高手

Question

我现在正在做一个屏幕保护程序。想在“显示属性“中的“屏幕保护程序"选项卡中显示我的屏保程序的名称，而不是我我命名的文件的名称，请问怎么办？监测键盘和鼠标程序代码如下：
procedure TSav_Form.Detect(var Msg:TMsg;
var Handled:boolean);
Var
Done:boolean;
begin
Done:=false;
if （Msg.message=WM_KEYDOWN or
Msg.message=WM_MOUSEMOVE) then
done:=true;
if done then
begin
close;
end;
end;
procedure TSav_Form.FormShow(Sender: TObject);
begin
Application.OnMessage:=Detect;
    ShowCursor(false);
end;
为什么不能正常显示我的屏保程序啊！

Answer 1

procedure TSav_Form.Detect(var Msg:TMsg;
var Handled:boolean);
Var
Done:boolean;
begin
  Done:=false;
  if （Msg.message=WM_KEYDOWN or
  Msg.message=WM_MOUSEMOVE) then
  begin
    done:=true;
    if done then
       close;
  end;
end;
procedure TSav_Form.FormShow(Sender: TObject);
begin
Application.OnMessage:=Detect;
    ShowCursor(false);
end;