Delphi - Conexión vía módem

Hola.
Busco información sobre como hacer una aplicación para conectar/desconectar el ordenador automáticamente a internet vía módem.
Un saludo y muchas gracias.

// Wininet
var Conex:dword;
Resultado := InternetDial(Handle, nil, 0, @Conex, 0);

puedes manejar la conexion con ERROR_SUCCES // SDK
"Resultado" devuelve 631 si se cancela la conexion, otro error:668