var rRes : TRemoteResource ; pInfo : TTetheringProfileInfo ; begin // Primero accedemos al perfil remoto pInfo : = ttManager . RemoteProfiles [ 0 ] ; // Luego accedemos al Recurso a partir del nombre único. rRes : = ttaProfile . GetRemoteResourceValue ( pInfo , 'SharedRes1' ) ; // Otra opción sería recorrer la lista de recursos _Log ( 'Recursos remotos: ' + IntToStr ( ttaProfile . GetRemoteProfileResources ( pInfo ) . Count ) ) ; // Accedemos (en este caso) al primero rRes : = ttaProfile . GetRemoteProfileResources ( pInfo ) [ 0 ] ; // Valores del recurso _Log ( ' Name: ' + rRes . Name ) ; _Log ( ' Hint: ' + rRes . Hint ) ; _Log ( ' Value: ' + rRes . Value . AsString ) ; // Finalmente accedemos al valor edtRes . Text : = rRes . Value . AsString ;