implementation

procedure THIBASS_Init._work_doInit;
var d,f,h:integer;
begin
// if _prop_Device = -1 then
// d := Readinteger(_Data, _data_Device, 0)
// else Это должно быть закомментировано "//", если нет, то поставте эти двойные косые
d := _prop_Device; Здесь назначается железо
f := Readinteger(_Data, _data_Freq, _prop_Freq);
h := Readinteger(_Data, _data_Handle, 0);
if BASS_Init(d,f,_prop_Flags,h,nil) then
_hi_onEvent(_event_onInit)
else _hi_onEvent(_event_onError, BASS_ErrorGetCode());
BASS_Start();
end;