procedure TForm1.Button1Click(Sender: TObject);
begin
    WordApplication1.Connect; // Присоединяемся
    WordApplication1.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam); // Создаем пустой документ
    WordApplication1.Visible:=true; // Показываем окно Word
    WordDocument1.ConnectTo(WordApplication1.ActiveDocument); // Присоединяемся к документу

    WordApplication1.Selection.ParagraphFormat.Alignment := 1; // Делаем текст по центру
    WordApplication1.ActiveWindow.ActivePane.View.SeekView := 10; // коллонтитул
    WordApplication1.Selection.TypeText('213'); // добавляем текст
    WordApplication1.ActiveWindow.ActivePane.View.SeekView := 0; // уходим из коллонтитула
end;

begin
try
w1.Connect;
  Except
    MessageDlg('У вас не установлен программный продукт Microsoft Office ', mtError, [mbOk], 0);
    Abort;
  End;

w1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
w1.Visible:=true;