请问我的XP系统无法实现屏幕密码保护,该如何实现?(50分)

按说密码保护是在用户中设置密码后,在桌面属性的屏幕保护中实现的,
但我安装的XP系统的屏幕保护中没有"密码保护",
该如何实现密码保护呢?
我希望的是在工作人员短暂离开工作岗位时可以进入屏幕保护模式,防止别人操作电脑,

那就自己写个服务程序，检测系统在一定时间内没有任何操作后，弹出一个屏幕保护对话框

当系统10秒钟内没做任何操作时，系统自动最小化。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
FDelayTime: Integer;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
function LastInput:dword;
var
LInput: TLastInputInfo;
begin
LInput.cbsize := sizeof(TLastInputInfo);
GetLastInputInfo(LInput);
result := GetTickCount - LInput.dwtime;
end;
begin
if FDelayTime <= LastInput then
Self.Perform(WM_SYSCOMMAND, SC_ICON, 0);
//self.WindowState := wsMinimized;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FDelayTime := 10000;
end;

end.