diff --git a/打卷检验管理/U_MJManageNewFDNew.dfm b/打卷检验管理/U_MJManageNewFDNew.dfm
index fce644b..fbb627c 100644
--- a/打卷检验管理/U_MJManageNewFDNew.dfm
+++ b/打卷检验管理/U_MJManageNewFDNew.dfm
@@ -1600,7 +1600,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
         '1'
         '2'
         '3'
-        '4')
+        '4'
+        '5'
+        '6'
+        '7')
     end
     object MJStr4: TEdit
       Left = 57
@@ -2534,7 +2537,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     Color = clSkyBlue
     TabOrder = 7
     object Label2: TLabel
-      Left = 684
+      Left = 725
       Top = 4
       Width = 40
       Height = 19
@@ -2570,7 +2573,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Visible = False
     end
     object Label25: TLabel
-      Left = 346
+      Left = 387
       Top = 4
       Width = 40
       Height = 19
@@ -2598,7 +2601,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Visible = False
     end
     object Label38: TLabel
-      Left = 178
+      Left = 219
       Top = 4
       Width = 40
       Height = 19
@@ -2640,7 +2643,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Visible = False
     end
     object Label47: TLabel
-      Left = 515
+      Left = 556
       Top = 4
       Width = 60
       Height = 19
diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas
index c94a947..ee03236 100644
--- a/打卷检验管理/U_MJManageNewFDNew.pas
+++ b/打卷检验管理/U_MJManageNewFDNew.pas
@@ -621,8 +621,8 @@ begin
   if Th > 0 then
   begin
     try                                                 
-      Tp := GetProcAddress(Th, 'CommOpen');
-      if Tp <> nil then
+      Tp := GetProcAddress(Th, 'CommOpen');               
+      if Tp <> nil then                                             
       begin
         Tf := TMyFunc(Tp);
         newh := Tf(self.Handle, 'Comm1', 500, 1);