[NumLock]

ну если не напрягать себя изучением TXMLDocument то можно так:

Код:

var
  stringlist: TStringList;
begin
  stringlist:=TStringList.Create;
  try
    stringlist.LoadFromFile('g:\__Apps\_\books.xml');
    stringlist.Insert(4, '<new tag>New Tag</new tag>');
    stringlist.SaveToFile('g:\__Apps\_\books.xml');
  finally
    stringlist.Free;
  end;