procedure SetRadiogroupHints(rg:TCustomRadioGroup; const Hints:array of string);
var
   i : Integer;
begin
   for i := 0 to rg.ControlCount-1 do
   begin
      if i > High(Hints) then
         Break;
      with rg.controls[i] do
      begin
         Hint := Hints[i];
         ShowHint := Hint<>'';
      end;
   end;
end;