На conns^.dwSize := sizeof(TRasConn);
если закоментить GetMem(conns, bufsize); то на RasGetConnectStatus(conns^.hrasconn, status);
если эту строку закоментить то больше ошибок нет