#pas
procedure THiAsmClass.doSempl;
 var Res:integer;
 begin
   Case Odd(i) of
    False:  Res:=round(_Vol1*sin(i*_Freq1) + _Vol2*sin(i*_Freq2));
    True :  Res:=round(_Vol1*cos(i*_Freq1)*_SSB1 + _Vol2*cos(i*_Freq2)*_SSB2);
   end;
  _hi_onEvent(onSempl, Res);
  Inc(i);
 end;