f:boolean;begin  //必须在use里加入mmsystem
     sendplaysound('cji.wav',snd_async);
     if f:=true then
     begin
         sendplay('cgi2.wav',snd_async);
     end;
     else
     begin
         f:=false;
     end;