TenderZipCompleteChecker

Units/ProjectCommands.pas

@@ -1228,13 +1228,16 @@ begin
   if FileExists(FTempFolder + '\main.dat') then
   begin
     try
-      FProjectData := TProjectData.Create;
-      FProjectData.OpenForSubmit(FFileName);
-      Result := True;
-    except
+      try
+        FProjectData := TProjectData.Create;
+        FProjectData.OpenForSubmit(FFileName);
+        Result := True;
+      except
+        Result := False;
+      end;
+    finally
       if Assigned(FProjectData) then
         FProjectData.Free;
-      Result := False;
     end;
   end;
 end;