Изменить значение тега

Доброго времени суток!

Подскажите, как можно поменять значение тега на странице, загруженной в Webbrowser?

<LI class="default" data-id="1V5wI8NVTh">1234</LI>

Нужно 1234 поменять на 4567, например. Пробовал так, но текст добавляется к прежнему, а мне нужно заменить:

procedure TForm1.Button5Click(Sender: TObject);
var
  Doc, Arr, Elem : Variant;
  STag, SClass : String;
  a : Integer;
begin
  Doc := WebBrowser1.OleObject.document; 
  STag := 'LI';
  SClass := 'default';

Arr := Doc.getElementsByTagName(STag);
for a := 0 to Arr.length - 1 do begin
Elem := Arr.item(a);
if Elem.className = SClass then begin

 Elem.insertAdjacentText('AfterBegin', '5678');

end;
end;
end;