diff --git a/mystic/bbs_filebase.pas b/mystic/bbs_filebase.pas
index 0760b3e..e3223bb 100644
--- a/mystic/bbs_filebase.pas
+++ b/mystic/bbs_filebase.pas
@@ -1771,7 +1771,6 @@ Var
   Function GetFileListSize (SizeInfo: String) : String;
   Var
     A : Cardinal;
-    S : String;
   Begin
     If FDir.Flags And FDirOffline <> 0 Then
       GetFileListSize := strWordGet(1, SizeInfo, ' ')