[marcoszorrilla]

Yo hago esto:

Código Delphi [-]
procedure TfrConFacturas.spModifClick(Sender: TObject);
begin
    //
  if (Estado =2) and (DmFact.IBDtsFacturasCONT.Value = 'S') then
  begin
  sndPlaySound('C:\Windows\Media\Ringout.wav',
SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);
  ShowMessage('ATENCION:'+ Chr(10)+Chr(13)+'Factura contabilizada, desmárquela,'+ Chr(10)+Chr(13)+' proceda a los cambio y comuníquelo'+ Chr(10)+Chr(13)+' a Contabilidad');
  sndPlaySound(nil, 0); // Detiene el sonido 
  end
  else
  begin
  Application.CreateForm(TfrModVentas, frModVentas);
  frModVentas.ShowModal;
  end;
end;

Un Saludo.