Si quieres que tus mensajes contengan un sonido puedes usar los sonidos de windows wav asi:
delphi
uses MMSystem; // se necesita esta unidad procedure TForm1.Button1Click(Sender: TObject); begin sndPlaySound('C:\Windows\Media\winAquariumQuestion.wav', // busca ese sonido en particular SND_NODEFAULT Or SND_ASYNC Or SND_LOOP); Showmessage('hola'); // despliega el mensaje sndPlaySound(nil, 0); // Detiene el sonido, cuando detengas el mensaje end;
Los Sonidos de windows se encuentran en la carpeta, Media:
C:\Windows\Media\ELSONIDO.wav
Saludos