搜索注册表，判断是否已有密码，来确定窗口的显示内容。不过事先应有以下的声明然后才能使用：

　　在user中加入TRegistry，在var声明中加入以下几个窗体变量：

　　 TheReg: TRegistry;

　　 KeyName,ValueStr,tempStr:String;

　　procedure TfrmPass.FormShow(Sender: TObject);

　　begin

　　 TheReg := TRegistry.Create;

　　 try TheReg.RootKey := HKEY—LOCAL—MACHINE;

　　KeyName := ′SOFTWARE\Mypassword′;

　　//有该键则打开，没有则创建

　　if TheReg.OpenKey(KeyName, True) then begin

　　tempStr:=ExtractFileName(Application.ExeName); //读取密码

　　 ValueStr:=TheReg.ReadString(tempStr);

　　 //密码不为空则修改窗体为验证密码

　　 if ValueStr<>′′ then begin

　　 edit2.Visible:=false; frmPass.Caption:=′验证密码′;

　　 edit1.SetFocus; OK.Caption:=′确定′; end

　　//密码为空则修改窗体为设置密码对话框

　　else begin

　　showmessage(′第一次使用请设置密码!′);

　　 edit2.Visible:=true; frmPass.Caption:=′请设置新密码′;

　　 edit1.SetFocus; OK.Caption:=′设置′;

　　 end; TheReg.CloseKey; end;

　　finally TheReg.Free; end; end;

　　二、按钮的响应代码：包括新设密码和验证密码。

　　procedure TfrmPass.OKClick(Sender: TObject);

　　begin

　　 //根据Edit2的显示与否判断已有密码,进行验证

　　 if edit2.Visible=false then begin

　　if pass(edit1.text)=ValueStr then begin

　　 showmessage(′密码正确!′); end

　　else begin

　　 showmessage(′密码不正确!无权操作!′);

　　 halt; end; end //无密码,设置新密码

　　 else begin

　　if edit1.text=edit2.text then begin

　　 TheReg := TRegistry.Create;

　　 TheReg.RootKey := HKEY—LOCAL—MACHINE;

　　 KeyName := ′SOFTWARE\Mypassword′;

　　 if TheReg.OpenKey(KeyName, True) then

　　 TheReg.WriteString(tempStr,pass(edit1.text));

　　 TheReg.CloseKey; end

　　else begin

　　 showmessage(′再次键入的密码不一致,请重输!′);

　　 edit1.text:=′′; edit2.text:=′′;

　　 edit1.SetFocus; end; //进行下一步操作

　　 end; end;

　　三、密码变换程序：注意要预先定义。

　　这个变换小程序在笔者看来还不算很复杂，只进行了两次变换，不过，想要破译也是得费点劲。读者还可以采用其他的数学函数进行更为复杂的变换。

　　function pass(pstr:string):string;

　　var str,str1:string;

　　i,j:integer;

　　begin

　　 str:=pstr;

　　 for i:=1 to length(str) do begin

　　//进行第一次变换

　　 j:=(i＊i＊i mod (i＋20))＋(i＊i mod (i＋10))＋i＊2＋1;

　　 str1:=str1＋chr(ord(str[i])＋j); //第二次变换

　　 j:=(i＊i＊i mod (i＋10))＋(i＊i mod (i＋20))＋i＊2＋1;

　　 str1:=str1＋chr(ord(str[i])＋j); end;

　　 pass:=str1;

　　end;