FName: String;
  FileStream : TFileStream;
  FData : Pointer;
  curTime,endTime:String;

  FileStream := TFileStream.Create('c:\test.wav', fmOpenRead);
  try
    FData := AllocMem(FileStream.Size);
    FileStream.Read( FData^,FileStream.Size);

    curTime := FormatDateTime('hh:nn:ss', now);
    sndPlaySound(FData,SND_MEMORY);     //1회 재생

    if (chkRepeat.Checked = true) and (StrToInt(cboftime.text) > 0) then
    begin
       if StrToInt(copy(curTime,4,2)) + StrToInt(cboftime.text) < 60 then
          endTime := copy(curTime,1,3) + IntToStr(StrToInt(copy(curTime,4,2)) + StrToInt(cboftime.text)) + copy(curTime,6,3)
       else
          endTime := IntToStr(StrToInt(copy(curTime,1,2)) + trunc((StrToInt(copy(curTime,4,2)) + StrToInt(cboftime.text))/60)) + ':' + IntToStr((StrToInt(copy(curTime,4,2)) + StrToInt(cboftime.text)) mod 60) + copy(curTime,6,3);

       while curTime <= endTime do
       begin
          sndPlaySound(FData,SND_MEMORY);       //반복재생시 끊어짐
          curTime := FormatDateTime('hh:nn:ss', now);
       end;
    end;
  finally
    FileStream.Free;
  end;