246     Close(f);

   246     Close(f);

   247     {$I+}

   247     {$I+}

   248     TryDo(IOResult = 0, msgFailed, true);

   248     TryDo(IOResult = 0, msgFailed, true);

   249     WriteLnToConsole(msgOK);

   249     WriteLnToConsole(msgOK);

   250     val(s, cExplosionBorderColor, c);

   250     val(s, cExplosionBorderColor, c);

   251     AdjustColor(cExplosionBorderColor);

   252     AdjustColor(cExplosionBorderColor);

   252     end;

   253     end;

   253 

   254 

   254 begin

   255 begin

   255 for fi:= Low(THWFont) to High(THWFont) do

   256 for fi:= Low(THWFont) to High(THWFont) do