diff --git a/project1.lpi b/project1.lpi
index 4c59068..2e0b339 100644
--- a/project1.lpi
+++ b/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"/>
diff --git a/project1.lps b/project1.lps
index 67368de..6d54ff2 100644
--- a/project1.lps
+++ b/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"/>
diff --git a/project1.res b/project1.res
index 7ec0932..5a003d4 100644
Binary files a/project1.res and b/project1.res differ
diff --git a/unit7.pas b/unit7.pas
index 0ea8b7a..c1438b9 100644
--- a/unit7.pas
+++ b/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);