TWebBrowser if then Problem

[klaus9]

Hallo,

ich würde gerne folgendes ermöglichen mit Delphi.

Ich habe einen Twebbrowser und würde gerne wenn im Quelltext ein bestimmter Text vorkommt,
das Delphi dann einen value Wert in ein bestimmtes Feld einfügt und weitermacht.


procedure TForm1.Action20Execute(Sender: TObject);
begin
if
WebBrowser1.OleObject.document.forms.item(0).eleme nts.item('Operation') //wenn das Wort Operation im Quelltext gefunden wird
then
WebBrowser1.OleObject.document.forms.item(0).eleme nts.item('bemerkung').value:='erledigt'; // soll er diese funktion ausführen.
end;

Das Feld 'bemerkung' gibt es und es läßt sich auch so befüllen, nur halt leider nicht die vorherige überprüfung.

Gruß
Klaus