procedure TForm1.Button3Click(Sender: TObject);
begin
windows.Beep(1000,1000);//проверка
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SyStemParametersInfo(SPI_SETBEEP,0,nil,SPIF_UPDATEINIFILE);//выключить
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SyStemParametersInfo(SPI_SETBEEP,1,nil,SPIF_UPDATEINIFILE);//включить
end;