unit hiBASS_StreamCreate;
.
.
procedure THIBASS_StreamCreate._work_doCreate;
begin
 [color=blue] FHandle := BASS_StreamCreate(_prop_Freq, _prop_Channels, _prop_Flags, @MakeSine, self);[/color]
.
.