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;