set_agid

procedure set_agid(

  var a: Tdvd_disckey;

  __agid: dword

);

procedure set_agid(

  var a: Tdvd_lu_send_agid;

  __agid: dword

);

procedure set_agid(

  var a: Tdvd_host_send_challenge;

  __agid: dword

);

procedure set_agid(

  var a: Tdvd_send_key;

  __agid: dword

);

procedure set_agid(

  var a: Tdvd_lu_send_challenge;

  __agid: dword

);

procedure set_agid(

  var a: Tdvd_lu_send_title_key;

  __agid: dword

);

procedure set_agid(

  var a: Tdvd_lu_send_asf;

  __agid: dword

);