Play a wav-file

Use PlaySound function. For example:

procedure TForm1.Button1Click(Sender: TObject);
begin
  PlaySound(PChar('yes.wav'), 0, SND_SYNC);
end;

Related chapters
    Resource