Tender Zip Complete Checker

Units/ProjectCommands.pas

@@ -1213,6 +1213,8 @@ begin
       zctLastPhase: Result := UnZipFile(AFileName, FTempFolder) and CheckMain and CheckLastPhase;
     end;
   finally
+    if Assigned(FProjectData) then
+      FProjectData.Free;
     DeleteFileOrFolder(FTempFolder);
   end;
 end;
@@ -1228,16 +1230,11 @@ begin
   if FileExists(FTempFolder + '\main.dat') then
   begin
     try
-      try
-        FProjectData := TProjectData.Create;
-        FProjectData.OpenForSubmit(FFileName);
-        Result := True;
-      except
-        Result := False;
-      end;
-    finally
-      if Assigned(FProjectData) then
-        FProjectData.Free;
+      FProjectData := TProjectData.Create;
+      FProjectData.OpenForSubmit(FFileName);
+      Result := True;
+    except
+      Result := False;
     end;
   end;
 end;