function PlaySound(pszSound: PChar; hmod: HINST;
fdwSound:Cardinal): Boolean; stdcall; external 'winmm.dll';

procedure TForm1.SpeedBution1Click(Sender: TObject);
begin
PlaySound('Min.wav',0,1);
end;