1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

<tr><td align=right width=33% valign=top>
<input type=radio name="selling-shipping" value=will-ship-domestic CHECKED>

</td><td width=66% valign=top align=left>
<font face=verdana,arial,helvetica size=-1><font color="#000000"><b>Versand </b></font><br><font face=verdana,arial,helvetica size=-2> </font></font>
</td></tr>

<tr><td align=right width=33% valign=top>

<input type=radio name="selling-shipping" value=will-ship-european-union >

</td><td width=66% valign=top align=left>
<font face=verdana,arial,helvetica size=-1><font color="#000000"><b>Versand innerhalb der EU, der Schweiz und Liechtenstein</b></font><br><font face=verdana,arial,helvetica size=-2> </font>
</td></tr>


<tr><td align=right width=33% valign=top>

<input type=radio name="selling-shipping" value=will-ship-european-international >

</td><td width=66% valign=top align=left>
<font face=verdana,arial,helvetica size=-1><b class="small">Versand innerhalb Europas (auch Nicht-EU-Länder)</b></font>
</td></tr>


<tr><td align=right width=33% valign=top>

<input type=radio name="selling-shipping" value=will-ship-intl >					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

procedure TForm1.Button6Click(Sender: TObject);

var
  Document: IHTMLDocument2;
  rbTestList: IHTMLElementCollection;
  rbTest: IHTMLOptionButtonElement;
  I: Integer;
begin
  // Get a reference to the document
  // Referenz auf Dokument
  Document := WebBrowser1.Document as IHTMLDocument2;

  // Get a reference to input-control (Radiobutton)
  // Referenz auf Eingabe-Control-Element (Radiobutton)
  rbTestList := Document.all.item('rating', EmptyParam) as IHTMLElementCollection;

  // Get current values.
  // Aktuellen Wert auslesen
  for I := 0 to rbTestList.Length - 1 do
  begin
    // reference to the i. RadioButton
    // Referenz auf i. RadioButton
    rbTest := rbTestList.item(I, EmptyParam) as IHTMLOptionButtonElement;

    // Show a message if radiobutton is checked
    // Anzeigen, wenn dieser RadioButton ausgewählt
    if rbTest.Checked then
      ShowMessageFmt('Der RadioButton mit dem Wert %s' +
        ' ist ausgewählt!', [rbTest.Value]);
  end;

  // Set new values
  // Neuen Wert setzen
  for I := 0 to rbTestList.Length - 1 do
  begin
    // reference to the i. RadioButton
    // Referenz auf i. RadioButton
    rbTest := rbTestList.item(I, EmptyParam) as IHTMLOptionButtonElement;

    // check radiobutton with value 3.
    // Wir möchten den RadioButton mit dem Wert "3" aktivieren
    if rbTest.Value = '3' then
      rbTest.Checked := True;
  end;
end;					

1:
2:
3:
4:
5:

//WebBrowser1.OleObject.Document.forms.item(0).selling-shipping.click;
//WebBrowser1.OleObject.Document.forms.item(0).selling-shipping.click.will-ship-european-international.click;

//webBrowser1.OleObject.Document.Forms.item(0).elements.item('bla').click;
//webBrowser1.OleObject.Document.All.Item('bla').Value :='bla';