MH_KeyRadio

function MH_KeyRadio(

  Name: PChar;

  Rarray: PPChar;

  Key: Char

):PObject_;

function MH_KeyRadio(

  var KR: PObject_;

  Name: PChar;

  Rarray: PPChar;

  Key: Char

):PObject_;