procedure TetheringAppProfile1ResourceReceived(const Sender: TObject; const AResource: TRemoteResource)