--- a/hedgewars/uSound.pas	Thu Oct 08 17:47:34 2009 +0000
+++ b/hedgewars/uSound.pas	Sat Oct 10 14:24:39 2009 +0000
@@ -54,7 +54,7 @@
 procedure ResumeMusic;
 procedure StopSound(snd: TSound);
 function  ChangeVolume(voldelta: LongInt): LongInt;
-function  AskForVoicepack(name: shortstring): Pointer;
+function  AskForVoicepack(name: shortstring): PVoicepack;
 function  soundFadeOut(snd: TSound; qt: LongInt; voicepack: PVoicepack): LongInt;