Объяснение:
Суть этой процедуры - воспроизводить стандартный звуковой сигнал, установленный в Windows, если имеется звуковая карта и настроен стандартный звук, если же нет, то звук поступит через динамик компьютера в виде короткого щелчка. Ее можно использовать, например, при вводе пользователем не тех данных, или при закрытии формы:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Beep;
end;
