TWebbrowser : Formular mit bestimmten Namen abschicken

[DelphiPeter]

OK, habe es nun raus bekommen

Delphi-Quellcode:

...
function WbBtnClickByValue(WebBrowser: TWebBrowser; Value: string): Boolean;
var  
 ovElements: OleVariant;
 i: Integer;
 res: boolean;
begin
 res := false;
 ovElements := WebBrowser.OleObject.Document.forms.item(0).elements;
 for i := 0 to ovElements.Length -1 do
 begin
  if lowercase(ovElements.item(i).Value) = lowercase(value) then
  begin
   res := true;
   ovElements.item(i).Click;
   Result := res;
   break;
  end;
 end;
...