Звуки в Delphi 7.0

[a_n_n_a]

Можно ли сделать так, чтобы при нажатии на кнопку издавался звук? Например, как в телефоне...

[SERG1980]

Можно конечно

uses MMSystem
............
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=32 then SNDPlaySound('путь к звуку', SND_ASYNC);
end;

[Aristarh Dark]

Я как-то баловался звуком, как раз генерил тональности такие как при тоновом наборе телефона, если надо - пиши