TWebBrowser if then Problem

[klaus9]

Habe jetzt mal ein bisschen rumprobiert und glaube die lösung gefunden zu haben, zwar noch nicht so wie ich es haben will, aber so müßte es gehen

jetzt auch mit Tags

Delphi-Quellcode:

procedure TForm1.Button112Click(Sender: TObject);
var was:string;
begin
 if pos('11:45', string(webBrowser1.OleObject.Document.Body.InnerHtml))=0 then
  showmessage('nein')
    else
    showmessage('ja')

end;

habe mal nach der Uhrzeit 11:45 gesucht im HTML Quelltext und auch gefunden..

Wenn ich jetzt noch nach zwei übereinstimmungen suchen könnte, dann hätte ich es

vielleicht hat ja jemand einen Tipp

Gruß