Internet - desconectanto

procedure TForm1.Button1Click(Sender: TObject);

var rasconn:TRasConn;

    bufsize,conn,status:integer;

begin

  rasconn.dwSize:=sizeof(TRasConn);

  bufsize:=sizeof(TRasConn);

  status:=RasEnumConnections(@rasconn,bufsize,conn);

  if status=0 then // ok

    if conn>0 then

      RasHangUp(rasconn.hrasconn)

    else

      showmessage('Nenhuma conexão ativa')

  else

    showmessage(format('Erro: %u',[status]));

end;

Vc deve colocar na clausula uses a interface para rasAPI. (uses ras;)