ААААА!!!!!! Какая красота! Всё работает! 
СПАСИБО ОГРОМНОЕ!! Если будет вопрос по звуку, обращайся смело, помогу чем смогу. =) Добавлено (01.08.2009, 15:11)
---------------------------------------------
ZuBy, а я её и не плеил даже =) Ща покажу, что я с ней сделал. Ты не узнаешь свою процедуру
Code
function hzToInt: Integer;
var
H: Extended;
bi: BASS_CHANNELINFO;
begin
Chan := BASS_StreamCreateFile(false, Pchar(Form1.OpenDialog1.FileName), 0,0,0);
BASS_ChannelGetInfo(Chan, bi);
H := bi.freq;
Result := Round(H);
BASS_StreamFree(chan);
end;
