随机点名器 v1.18.3

更新日志：
- 修复新手向导管理员密码修改问题

project1.lpi

@@ -23,7 +23,7 @@
       <AutoIncrementBuild Value="True"/>
       <MajorVersionNr Value="1"/>
       <MinorVersionNr Value="18"/>
-      <RevisionNr Value="2"/>
+      <RevisionNr Value="3"/>
       <BuildNr Value="2"/>
       <Language Value="0804"/>
       <StringTable Comments="一个简单好用的随机点名器" FileDescription="一个简单好用的随机点名器" LegalCopyright="GNU GPL V3" OriginalFilename="随机点名器" ProductName="随机点名器" ProductVersion="1"/>

project1.lps

@@ -49,7 +49,7 @@
         <UnitName Value="Unit2"/>
         <EditorIndex Value="5"/>
         <TopLine Value="145"/>
-        <CursorPos X="82" Y="161"/>
+        <CursorPos X="7" Y="169"/>
         <UsageCount Value="69"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -105,8 +105,8 @@
         <UnitName Value="Unit7"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="2"/>
-        <TopLine Value="71"/>
-        <CursorPos X="20" Y="86"/>
+        <TopLine Value="129"/>
+        <CursorPos X="80" Y="144"/>
         <UsageCount Value="31"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

unit7.pas

@@ -141,8 +141,17 @@ procedure TFirstRunForm.BackButtonClick(Sender: TObject);
 
 procedure TFirstRunForm.Button1Click(Sender: TObject);
 begin
+   PasswordModifyForm := TPasswordModifyForm.Create(Application);//动态创建窗体
   PasswordModifyForm.passwdmd5('25d55ad283aa400af464c76d713c07ad');
-  PasswordModifyForm.Show();
+
+  try
+    PasswordModifyForm.ShowModal;//显示模式窗体
+  finally
+    PasswordModifyForm.Free; //释放窗体实例
+    //ShowMessage(BoolToStr(ModalForm = nil));
+    PasswordModifyForm := nil; //把窗体变量设为nil
+    //ShowMessage(BoolToStr(ModalForm = nil));
+  end;
 end;
 
 procedure TFirstRunForm.Button2Click(Sender: TObject);