Звук из динамка

[chel]

Спецы может кто подскажет, нужно в Лазарусе (под Убунту) сгенерировать звук из динамика при выполнении какого либо условия (Например на форме поле Edit стало равно единице).

[McLion]

procedure TForm1.Button1Click(Sender: TObject);
begin
Beep;
end;

[olegy123]

в uses MMSystem есть
sndPlaySound(Pchar(FNameFile),
SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);

Урок 14. Воспроизведение звука