Normalerweise solltest du keine Schleife brauchen.
Du nimmst dir einen Button zum Testen mit
Delphi-Quellcode:
try
for I := 0 to 20 do
begin
WebBrowser1.OleObject.document.forms.item(I).elements.item('DenrichtigenNamendesFeldes').value:=Trim(Edit1.Text);
ShowMessage(IntToStr(I));
end;
except
end; // try
Wenn eine Message aufgeht mit einer Zahl, nimmst du dir einen weiteren Button und trägst einfach,
Delphi-Quellcode:
procedure Tfrm1.btn1Click(Sender: TObject);
begin
WebBrowser1.OleObject.document.forms.item('DieZahlausderMessage').elements.item('DenrichtigenNamendesFeldes').value:=Trim(Edit1.Text);
end;
ein.