299     voicepacks[i].name:= name;

   299     voicepacks[i].name:= name;

   300     AskForVoicepack:= @voicepacks[i]

   300     AskForVoicepack:= @voicepacks[i]

   301 end;

   301 end;

   302 

   302 

   303 procedure InitSound;

   303 procedure InitSound;

   305 var success: boolean;

   305 var success: boolean;

   306 begin

   306 begin

   307     if not (isSoundEnabled or isMusicEnabled) then

   307     if not (isSoundEnabled or isMusicEnabled) then

   308         exit;

   308         exit;

   309     WriteToConsole('Init sound...');

   309     WriteToConsole('Init sound...');