Msacm.pas???

Hi All! http://homepages.borland.com/torry/vcl/mmedia/audio/acm.zip Prompt please why Delphi7 normally compiles this package on WinXP But in the time of program execution there is an error in acmdialog.pas -> res: = acmFormatChoose (fc); this function described in msacm.pas.

=== var fc:TACMFORMATCHOOSEA; ... ... function TACMDialog.OpenDialog:Pointer; var maxsizeformat,res:longint; begin if fc.pwfx = nil then begin acmMetrics(0, ACM_METRIC_MAX_SIZE_FORMAT, MaxSizeFormat); fc.cbStruct := sizeof(fc); fc.cbWfx := MaxSizeFormat; getmem(fc.pwfx, MaxSizeFormat); fc.pwfx.wFormatTag :=$31; //WAVE_FORMAT_GSM610; set default format to GSM6.10 fc.pwfx.nChannels := 1; //mono fc.pwfx.nSamplesPerSec := 8000; fc.pwfx.nAvgBytesPerSec:= 8000; { for buffer estimation } fc.pwfx.nBlockAlign:=1; { block size of data } fc.pwfx.wbitspersample := 8; end; fc.fdwStyle:=ACMFORMATCHOOSE_STYLEF_INITTOWFXSTRUCT; //use the pwfx(waveformatex structure) as default res:=acmFormatChoose(fc); //display the ACM dialog box result:=nil; if res=MMSYSERR_NOERROR then result:=fc.pwfx; //return the pointer to waveformatex structure end;

Thanks foe help!