realizar llamada telefonica con reporduccionde sonido

[carlosmoralesm]

Hola a todos

Estoy haciendo una conexion telefonica donde al responder tengo que reproducir un archivo de sonido.

ya puedo hacer el marcado pero me falta reproducir el sonido


esto es lo que tengo

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, MPlayer;

function tapiRequestMakeCall(lpszDestAddress,
lpszAppName,
lpszCalledParty,
lpszComment: LPCSTR): DWORD; stdcall;
type
TForm1 = class(TForm)
Button1: TButton;
MediaPlayer1: TMediaPlayer;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation

function tapiRequestMakeCall; external 'TAPI32.DLL' name 'tapiRequestMakeCall';
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
PhoneNumber: array [0..255] of char;
AQuien: array [0..255] of char;
begin
StrPCopy(PhoneNumber,'666666666');
StrPCopy(AQuien,'To Satan');
tapiRequestMakeCall(PhoneNumber,'',AQuien,'');
end;
end.

como puedo agregar el sonido para que se reproduzca


Gracias de antemano