--- a/hedgewars/uSound.pas	Sat Aug 18 15:16:03 2007 +0000
+++ b/hedgewars/uSound.pas	Sat Aug 18 20:53:49 2007 +0000
@@ -97,7 +97,9 @@
 end;
 
 procedure PlayMusic;
+{$IFDEF HAVE_MUSIC}
 var s: string;
+{$ENDIF}
 begin
 {$IFDEF HAVE_MUSIC}
 if not isSoundEnabled then exit;
@@ -132,7 +134,9 @@
 end;
 
 procedure InitPlaylistChunk(seed: LongWord);
+{$IFDEF HAVE_MUSIC}
 var i, t, nt: Longword;
+{$ENDIF}
 begin
 {$IFDEF HAVE_MUSIC}
 for i:= 0 to Pred(cPlayListLength) do