Неправельное сохранение файла xml

[-=Virus=-]

Суть вопросо такова:
Нужно сохранить в тег <host> адрес
Пытаюсь сделать так всё сорхраняет нормально.
но когда открываешь файл проподает содержимое файла
кторое было кроме <host> тега.

Код

procedure TForm1.Button1Click(Sender: TObject);
var
coDoc: CoDOMDocument;
Doc: IXMLDOMDocument;
txt: IXMLDOMText;
r: IXMLDOMElement;
Node: IXMLDOMElement;
begin
Doc := coDoc.Create;
Doc.load('settings.xml');
Doc.Set_async(false);
Doc.LoadXML('<settings/>');
r:=Doc.Get_documentElement;
Node := Doc.createElement ('host');
txt := Doc.createTextNode(edit1.text);
Node.appendChild(txt);
r.appendChild(Node);
Doc.save('settings.xml');
end;

В чём может быть проблема?
Может что то я упустил?

[-=Virus=-]

Всем спасибо решение найдено

var
XML: IXMLDocument;
Node: IXMLNode;
begin
XML :=LoadXMLDocument('settings.xml');
try
Node := XML.DocumentElement.ChildNodes.Find Node('host');
if Node <> nil then
Node.NodeValue := Combobox1.text;
XML.SaveToFile('settings.xml');
finally
XML := nil;
Node := nil;
end;