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:

//ZUm Felder ausfüllen benötigt
function FillForm(WebBrowser: TEmbeddedWB; FieldName: string; Value: string): Boolean;
var
  i, j: Integer;
  FormItem: Variant;
begin
  Result := False;
  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
  begin
    Exit;
  end;
  for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
  begin
    FormItem := WebBrowser.OleObject.Document.forms.Item(I);
    for j := 0 to FormItem.Length - 1 do
    begin
      try
        if FormItem.Item(j).Name = FieldName then
        begin
          FormItem.Item(j).Value := Value;
          Result := True;
        end;
      except
        Exit;
      end;
    end;
  end;
end;                    

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

procedure TForm1.Preisaktuell();
var mzeile, Preiszeile:integer;
    preis:string;
begin
//HTML Code aus Artikelseite aufrufen...
memo1.lines.add(ihtmldocument2(webbrowser1.document).body.outerhtml);
for mzeile:=0 to memo1.lines.count-1 do     //jede Zeile nach 'Preis' durchsuchen
 begin
  if pos('Aktueller Preis',memo1.lines[mzeile])<>0 then
   begin
   preiszeile:=mzeile+1;
   preis:=memo1.lines[preiszeile];
   delete(preis,1,7); delete(preis,length(preis)-14,15); //HTMl Codes aus Zeile entfernen
   if Pos('EUR',preis)=0 then Label2.Caption:='N/A' else begin Label2.caption:=preis; Statusbar1.Panels[0].text:='Preis aktualisiert...'; end; //ist Preis gültig?
   end;
 end;
end;