TWebBrowser Button Automatisch drücken

[VxDMon]

Hiho,
ich hab ein Problem und zwar will ich ein Button Automatisch drücken lassen in TWebBrowser das funktoniert mit den Code von shmia aus http://www.delphipraxis.net/internal...862&highlight= auch ganz gut wenn der Button ein "Namen" besitzt nun hab ich aber 3 Buttons die keinen Namen besitzten sondern nur unterschiedliche Value's haben dann habe ich versucht shmia's code so abzuändern das er auf die Value's zugreift bzw den Button mit der bestimmen Value drückt denn ich ihn gesagt habe aber leider klappt das nicht so ganz also der Code drückt denn Button nicht er macht einfach nichts.

-> HTML

Delphi-Quellcode:

<input type=button value=' Beispiel1 ' onClick='Action(this.form,1)'>
<input type=button value=' Beispiel2 ' onClick='Action(this.form,2)'>
<input type=button value=' Beispiel3 ' onClick='Action(this.form,3)'>

So sehen die Buttons aus ich will nun das der zweite Button mit der Value " Beispiel2 " geklickt wird
mit den Code von shmia geht es nicht auch wenn ich das abändern tue so das es eigentlich gehen müsste.

-> shmia's Code

Delphi-Quellcode:

procedure SubmitWebForm(webform:OleVariant); 
var 
   i : Integer; 
   formitem : OleVariant; 
   itemtype, itemname : string; 
begin 
   // Schleife über alle Items eines WebFormulars 
   For i:= webform.Length-1 downto 0 do 
   begin 
      formitem := webform.Item(i); 
      itemtype := UpperCase(formitem.Type); 
      itemname := UpperCase(formitem.Name); 

      // if it's a submit button: click it 
      if itemtype = 'SUBMIT' then 
      begin 
         formitem.Click; 
         Exit; 
      end 
      else if (itemtype='BUTTON') and (itemname='SUBMIT') then 
      begin 
         formitem.Click; 
         Exit; 
      end 
   end; 

   // try default submit Method 
   webform.submit; 
end; 

// erstes Formular abschicken 
SubmitWebForm(WebBrowser1.OleObject.document.forms.Item(0));

Ich hoffe es kann mir wer Helfen.

//EDiT
Habe es nun selber hingekriegt
mfg, VxDMon