function CreateNewWave(NewFileName: string): Boolean;
var
 DeviceID: Word;
 Return: LongInt;
 MciOpen: TMCI_Open_Parms;
 MciRecord: TMCI_Record_Parms;
 MciPlay: TMCI_Play_Parms;
 MciSave: TMCI_SaveParms;
 MCIResult: LongInt;
 Flags: Word;
 TempFileName: array[0..255] of char;
begin
 MediaPlayer.Close;
 try
 StrPCopy(TempFileName, NewFilename);

 MciOpen.lpstrDeviceType := 'waveaudio';
 MciOpen.lpstrElementName := '';
 Flags := Mci_Open_Element or Mci_Open_Type;
 MCIResult := MciSendCommand(0, MCI_OPEN, Flags, LongInt(@MciOpen));
 DeviceID := MciOpen.wDeviceId;

 MciRecord.dwTo := 1;
 Flags := Mci_To or Mci_Wait;
 MCIResult := MciSendCommand(DeviceID, Mci_Record, Flags,
 LongInt(@MciRecord));

 mciPlay.dwFrom := 0;
 Flags := Mci_From or Mci_Wait;
 MciSendCommand(DeviceId, Mci_Play, Flags, LongInt(@MciPlay));

 mciSave.lpfileName := TempFilename.CString;
 Flags := MCI_Save_File or Mci_Wait;
 MCIResult := MciSendCommand(DeviceID, MCI_Save, Flags, LongInt(@MciSave));

 Result := MciSendCommand(DeviceID, Mci_Close, 0, LongInt(nil)) = 0;
 end;
end;