procedure Tform1.SetDataValue(WB:IWebBrowser2; NameTag, SetValue:String);
var
 iDoc: IHtmlDocument2;
 i: integer;
 ov: OleVariant;
 iDisp: IDispatch;
 iColl: IHTMLElementCollection;
 iInputElement: IHTMLInputElement;
begin //

 iDoc := (WB as IWebBrowser).Document as IHtmlDocument2;
 if not assigned(iDoc) then
 begin
  // ShowMessage(' !!!??? Nothing dowloaded ... ');
  // Exit;
 end;
 ov := 'INPUT';
 IDisp := iDoc.all.tags(ov);
 if assigned(IDisp) then
 begin
   IDisp.QueryInterface(IHTMLElementCollection, iColl);
   if assigned(iColl) then
   begin
     for i := 1 to iColl.Get_length do
     begin
       iDisp := iColl.item(pred(i), 0);
       iDisp.QueryInterface(IHTMLInputElement, iInputElement);
       if assigned(iInputElement) then
       begin
//=======ВОТ ЭТО ТО ЧТО ТЕБЕ НУЖНО!
//===НО ЭТО ЕЩЕ И ДЛЯ TYPE=RADIO, ТЕБЕ ТУТ НУЖНО ТОЛЬКО
//===УБРАТЬ ПРОВЕРКУ if (iInputElement.value=SetValue)

         if iInputElement.Get_name = NameTag then begin   //===ЭТО НАШ RADIO, ЕГО NAME    
       if (iInputElement.value=SetValue) then begin
           iInputElement.Set_value(SetValue);   //====МОЖЕТ И НЕ ОБЯЗАТЕЛЬНО, НЕ ПРОВЕРЯЛ
           iInputElement.checked:=true;   //====А ЭТО ЧЕКНЕТ ИМЕННО НУЖНЫЙ НАМ ЭЛЕМЕНТ
           break;
           end;
           end;
       end;
     end;
   end;
   end;
end;

checked:=true;