var
Rates: pplong;
RateCount: integer;
X, Y: Pointer;
Count: integer;
begin
mh:=nil;
mh := mpg123_new(nil, mhErr);
if mhErr <> MPG123_OK then
DebugLn('Error after mpg123_new ' + IntToStr(mhErr));
mhErr := mpg123_format_none(mh);
if mhErr <> MPG123_OK then
DebugLn('Error after mpg123_format_none ' + IntToStr(mhErr));
RateCount := 0;
X := @RateCount;
//Y := @Rates;
//Rates := nil;
mpg123_rates(Rates, X);
//DebugLn('After mpg123_rates. Rate count is ' + IntToStr(RateCount));