From 9aa572c41c348fc8b5ad871a53bae45ec9111605 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Fri, 22 Feb 2013 20:46:48 -0500
Subject: [PATCH] Code cleanup

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

diff --git a/mystic/aviewzip.pas b/mystic/aviewzip.pas
index b737446..c70786b 100644
--- a/mystic/aviewzip.pas
+++ b/mystic/aviewzip.pas
@@ -52,8 +52,8 @@ Type
     Procedure   FindNext  (Var SR : ArcSearchRec); Virtual;
 
     Private
-                Hdr     : ZFLocalHeader;
-                cHdr    : ZFCentralHeader;
+                Hdr   : ZFLocalHeader;
+                cHdr  : ZFCentralHeader;
                 cFile : Word;
                 tFile : Word;
                 Procedure GetHeader (Var SR : ArcSearchRec);
@@ -107,9 +107,13 @@ Begin
 
   While Hdr.Signature = LocalSig Do Begin
     Inc (tFile);
+
     CurPos := FilePos(ArcFile) + Hdr.FNameLen + Hdr.ExtraField + Hdr.cSize;
+
     Seek (ArcFile, CurPos);
+
     BlockRead (ArcFile, Hdr, SizeOf(Hdr), bRead);
+
     If bRead <> SizeOf(Hdr) Then Exit;
   End;