Fax Modem

[victor2023]

Hola a todos, quiero hacerles una pregunta, hice un pequeño modulo de para telemarketing pero a la hora de hacer la llamada el microfono no funciona, ya he probado el hardware y todo y si funciona el mic, en la pc que lo instale tiene un fax modem encore 56k chipset motorola trae un software faxtalk en ese programa si funciona bien el mic, bueno se escucha muy bajo, pero en el programa que hice no funciona el mic o no tiene salida para voz, alguien sabe de algun componente para hacer eso, o que es lo que le faltara de configuracion al modem porque creo que ya le movi a todo y nada mas no:confused:
el codigo que utilizo para hacer la llamada:
// Botón para establecer la comunicación

procedure TForm1.Button1Click(Sender: TObject);
var
NumeroTfno : string;
PuertoCom : string;
numero : cardinal;
begin
NumeroTfno := 'ATDT 670775799' + #13 + #10;
PuertoCom := 'COM3'; // utilizo modem interno a ese puerto

{ Utiliza el COM como si de un fichero más se tratase. Por ello la funcion CreateFile}

hCommFile := CreateFile(PChar(PuertoCom),
GENERIC_WRITE,
0,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);
if hCommFile=INVALID_HANDLE_VALUE then
begin
ShowMessage('No puedo abrir el puerto '+ PuertoCom);
exit;
end;

// Escribe en el fichero, es decir, efectúa el marcaje

numero:=0;
if WriteFile(hCommFile,
PChar(numerotfno)^,
Length(numerotfno),
numero,
nil) = falsethenbegin
ShowMessage('No puedo comunicar con el ' + PuertoCom);
end;
end;


// Botón para cerrar la comunicación

procedure TForm1.Button2Click(Sender: TObject);
begin
CloseHandle(hCommFile);
end;