Wert von OleVariant überprüfen?

[toms]

Ich wuerd's etwa so machen:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
   x, Document : OleVariant;  // nicht Variant
   Doc : IHTMLDocument2;
begin
  Assert(Assigned(WebBrowser.Document));
  if WebBrowser.Document.QueryInterface(IHTMLDocument2, Doc) = S_OK then
  begin
    x:= Doc.getElementById('countdown');
    if Assigned(x) then
       ShowMessage(x.innerHTML)
    else
      ShowMessage('countdown nicht gefunden :-(');
  end;
end;