--- a/hedgewars/uStore.pas	Sun Apr 13 12:29:26 2008 +0000
+++ b/hedgewars/uStore.pas	Sun Apr 13 12:33:16 2008 +0000
@@ -230,7 +230,6 @@
 
     procedure GetExplosionBorderColor;
     var f: textfile;
-        s1, s2: shortstring;
         c1, c2: TSDL_Color;
     begin
     s:= Pathz[ptCurrTheme] + '/' + cThemeCFGFilename;