From e48e7af28b5a2c77c7336fb096ce7935967e5f96 Mon Sep 17 00:00:00 2001
From: Alexander Kolesov <kolesov.alex.s@gmail.com>
Date: Tue, 7 Mar 2017 18:51:41 +0300
Subject: [PATCH] Fixed report saving errors handling.

---
 Units/NetflixQualityCheck.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/Units/NetflixQualityCheck.pas b/Units/NetflixQualityCheck.pas
index 770e7b9..a435498 100644
--- a/Units/NetflixQualityCheck.pas
+++ b/Units/NetflixQualityCheck.pas
@@ -395,16 +395,20 @@ function SaveString(Str: string; FileName: WideString): Boolean;
   fileStream: TTntFileStream;
 begin
   Result := true;
-  fileStream := TTntFileStream.Create(FileName, fmCreate);
 
   try
     try
+      fileStream := TTntFileStream.Create(FileName, fmCreate);
       fileStream.WriteBuffer(PChar(str)^, Length(str) * SizeOf(Char));
     except
       Result := false;
     end;
   finally
-    fileStream.Free;
+    try
+      fileStream.Free;
+    except
+      Result := false;
+    end;
   end;
 end;