Habe es selbst hinbekommen:
Delphi-Quellcode:
procedure TForm1.FlatButton2Click(Sender: TObject);
var i,x:integer;
begin
for i := 0 to listbox1.Items.Count-1 do begin
x:= StrToInt(listbox1.Items.Strings[i]);
Webbrowser1.OleObject.document.forms.item('form1').item('select').item(x-1).selected := true;
end;
end;
Oh mann, das war mal wieder zum
Besten Dank nochmals
Alex