Проверка наличия значений атрибутов объекта в коде HTML с помощью Delphi

Как с помощью Delphi проверить наличие значений атрибутов входных объектов в HTML-коде?

there isn't value attribute.
<input name="input1" type="text"/>
there is value attribute.
<input name="input1" type="text" value=""/>

Я пробовал следующее

  if WebBrowser1.OleObject.Document.GetElementByID('input1').getAttribute('value')<>nil then
       ShowMessage('value attribute is available')
     else
       ShowMessage('value attribute isn"t available')