Code:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:= 100 to 120 do
//this plays the sound
Windows.Beep(i, 1 );
//first param is the number of hertzs
//second param is the duration in ms
for i:= 120 downto 100 do
//this plays the sound
Windows.Beep(i, 1 );
end;
Mada ne znam cemu