1:

WebBrowser.OleObject.Document.Frames.item(0)....???					

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:

// webedit = TDTHMLEdit Import aus C:\programme\...\windows....\Triedit
procedure TEdit_Html_form.SCS;
var
  S:String;
  i:Integer;
  SDOM:String;
  Felement:IHTMLElementCollection;
  Len,lauf:Integer;
  Item: OleVariant;
  Item2: IHTMLElement;
  L:String;
begin
...
    Felement:=WebEdit.DOM.all; // alle Elemente in eine Kollection
    Len := FElement.Length; // Anzahl Elemente
    lauf:=1; // zähler
    for i := 0 to Len - 1 do begin // jedes Element
      Item := FElement.Item(i, varEmpty); // Element nehmen
      if (Item.TagName = 'P')or(Item.TagName = 'p') then begin // ist das Element ein <p>
        Item2:=  FElement.Item(i, varEmpty) as IHtmlElement;
        Item2._AddRef;
        Item2.removeAttribute('ID',0); //attribut "ID" löschen
        item2.setAttribute('ID','"'+trim(LowerCase('test'))+'-'+trim(L)+'-p'+IntToStr(Lauf)+'"',0);// Attribut hinzufügen <p id="1">
        Item2._Release;
        inc(Lauf);
      end;
    end;
  end;