1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="5">
<TR>
  <TD>
    <INPUT TYPE="TEXT" CLASS="TEXT" MAXLENGTH="10" SIZE="10" NAME="TEXT" ID="INPUTTEXT" VALUE="">
  </TD>
  <TD>
    <INPUT TYPE="SUBMIT" CLASS="BUTTON" NAME="ACTION" VALUE="Anmelden">
  </TD>
</TR>
</TABLE>                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

var
  WB: SHDocVw_TLB.TWebBrowser;
  Flags,
  TargetFrameName,
  PostData,
  Headers : OleVariant;
 o:olevariant;
begin
  WB := SHDocVw_TLB.TWebBrowser.Create(Self);
  TWinControl(WB).Parent := Panel1;
  WB.Align               := alClient;
      Flags           := 0;
    TargetFrameName := NULL;
    PostData        := NULL;
    Headers         := NULL;
    WB.Navigate('C:\Users\twassermann\Desktop\test.html', Flags, TargetFrameName, PostData, Headers);
  Sleep(1000);
  Application.ProcessMessages;
  Sleep(1000);
  o:=WB.OleObject.document.forms.item(0).all;
  o.tags('input').item(0).setAttribute('value','TEST');
  o.tags('input').item(1).Click;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure Tfrm_WFAdmin.Button1Click(Sender: TObject);
begin
    U_WWWForm.WebFeldFunktion_Durchfuehren(WebBrowser.ControlInterface,
                                           0,
                                           'TEXT',
                                           'INPUT',
                                           'Mein neuer Wert',
                                           1);
    U_WWWForm.WebFeldFunktion_Durchfuehren(WebBrowser.ControlInterface,
                                           0,
                                           'ACTION',
                                           'INPUT',
                                           '',
                                           2);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function WebFeldFunktion_Durchfuehren(const pWebbrowser: IWebBrowser2;
                                      const formNumber: integer;
                                      const fieldName, fieldTag, newValue: string;
                                      const fieldFunction: Smallint):boolean;
// *****************************************************************************
// formNumber    = Nummer der Form, wo das Feld sich befindet
//                 (wird nur für fieldFunction 1, 2 und 4 gebraucht)
// fieldName     = Feldname
//                 (wird nur für fieldFunction 1 und 2 gebraucht)
// fieldTag      = TagName des Feldes
// newValue      = Inhalt ist abhängig von fieldFunction
//                 (wird nur für fieldFunction 1 (neuer Wert),
//                                             3 (URL) und
//                                             5 (JavaScript) gebraucht)
// fieldFunction = 1 ("newValue" wird in das Feld geschrieben)
//               = 2 (Klick auf das Feld)
//               = 3 (Navigate zu "newValue")
//               = 4 (Submit der Form mit der Nummer "formNumber")
//               = 5 (JavaScript "newValue" wird durchgeführt)
// *****************************************************************************