Do not call Free if constructor failed

git-svn-id: trunk@29298 -

tests/utils/libtar.pas

@@ -802,7 +802,6 @@ BEGIN
     ON EFOpenError DO
       BEGIN
         Writeln(stderr,'LibTar error: unable to open file "',Filename,'" for reading.');
-        S.Free;
         exit;
       END;
   END;
@@ -813,7 +812,7 @@ BEGIN
     AddFile:=true;
   FINALLY
     S.Free
-    END;
+  END;
 END;