¿Cómo configurar el encabezado del documento de Word en Delphi5?

Tengo un código establecido para la página actual

varilla

mmmm, nnn, aaa: olevariant;

Comenzar

mmmm: = wdline;

nnn: = 1;

aaa: = wdfieldpage;

Wordapp.activewindow.activepane.view.seekview: = wdseekcurrentPageHeader;

Wordapp.selection.move (mm, nnn);

WordApp.Selection.Paragraphformat.alignment: = wDalignParagraphCenter;

WordApp.Selection.inStafter ('Parte');

mmmm: = wdcharacter;

Wordapp.selection.move (mm, nnn);

Wordapp.selection.fields.add (wordapp.selection.range, aaa, mmm, nnn);

aaa: = wdfieldnumpages;

WordApp.Selection.insertAfter ('Page/Capítulo');

Wordapp.selection.move (mm, nnn);

Wordapp.selection.fields.add (wordapp.selection.range, aaa, mmm, nnn);

Wordapp.selection.insertAfter ('página');

WordApp.activeWindow.activePane.view.seekview: = wdseekmainDocument;

fin;

Pero solo puede modificar la primera página.