usar Celular como Modem

[Jose_chile]

Hola Amigos:
Estoy discando desde un celular usando comandos de modem, con ATDT + Nº Telefono genero el discado y el celular dice "Discando XXXX ", pero el problema es que realiza un llamados de datos y al no encontrar carrier, da el mensaje "No Carrier Detected", lei en un foro que se le debe agregar el caracter " ; " (punto y coma) para que genere un llamado de voz, lo hice y me funciona con un modelo de celular mas moderno, pero el mas antiguo ( Nokia 2272 ) no lo hace y muestra el caracter punto y coma junto al numero a discar.
Las lineas de codigo son:


Procedure AbrePuerto;
begin
PuertoCom := 'COM4'; // utilizo modem interno a ese puerto
hCommFile := CreateFile(PChar(PuertoCom),
GENERIC_READ or 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;
end;

procedure SendData;
var
numerotfno: string;
begin
NUmeroTfno := 'ATDT 0;' + #13 + #10;
numero:=0;
if writeFile(hCommFile, PChar(numerotfno)^, Length(numerotfno), numero, nil) = false then begin
ShowMessage('No puedo comunicar con el ' + PuertoCom);
end;
end;


Alguien Podria decirme como lo hago para que el celu antiguo llame por voz tambien???
Gracias.
Jose