Conectar y desconectar a Internet por moden

[fide_uci]

Muchas gracias a todos. Lo he solucionado con un pequeño componente que hay en internet y se llama DialUp. Esta muy bueno y te permite establecer una conexion a internet que este previamente configurada desde windows, y te permite establecer la contraseña y el usuario de la conexion aunque no esten configuradas en windows.

Aqui les pongo el adjunto con el componente.

Y mas o menos como se usa, seria asi.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin

  DialUp1.Username := 'NombreUsuarioDeConexion';
  DialUp1.Password := 'ContraseñaDeConexion';

  DialUp1.ConnectTo := 'NombreConexionConfigurada';
  // El componente tiene una propiedad de tipo TString donde estan registradas todas las conexiones creadas en windows

  if  DialUp1.GoOnline then // Para conectarte con GoOffline te desconectas
    Memo1.Lines.Add('Se ha establecido la conexion')
  else
    Memo1.Lines.Add('NO se ha podido CONECTAR!!!');

  //Ademas tiene un procedimiento para comprobar si estas conectado.

end;