Delphi - Estudiante

Hola.

Quisiera saber si alguien me puede decir como remplazar un texto contenido en un pie de pagina de un documento en MSWord.

Cualquier otro texto contenido en el documento en MSWord, si es remmplazado por el nuevo texto, pero en el pie de pagina no funciona, que estoy haciendo mas?

El siguiente es el codigo que uso.

implementation
uses
ComObj;

procedure TForm1.Button2Click(Sender: TObject);
const
wdFindContinue = 1;
wdReplaceOne = 1;
wdReplaceAll = 2;
var
WordApp: Variant;
begin
WordApp:=CreateOleObject('Word.Application');
WordApp.Documents.Open('c:\TestDoc.doc');
// SI FUNCIONA ESTO
WordApp.Selection.Find.ClearFormatting;
WordApp.Selection.Find.Text := 'VIEJOTEXTO';
WordApp.Selection.Find.Replacement.Text := 'NUEVO TEXTO';
WordApp.Selection.Find.Execute(Replace := wdReplaceAll);

// ESTO NO FUNCIONA
WordApp.Document.Range.Section.HeaderFooter.Find.Text := 'PiePagina';
WordApp.Selection.Section.HeaderFooter.Find.Replacement.Text := 'Mi pie de pagina';
WordApp.Selection.Section.HeaderFooter.Find.Execute(Replace := wdReplaceAll);

WordApp.ActiveDocument.SaveAs('C:\NuevoDoc.doc');
WordApp.ActiveDocument.Close;
WordApp.Quit;
WordApp := Unassigned;
end;