uses
   ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
   WordApp: OLEvariant;
begin
   Screen.Cursor := crHourglass;
   try
     // Create Word Instance
     WordApp := CreateOleObject('Word.Application');
   except
     ShowMessage('Не могу запустить MS Word.');
     Screen.Cursor := crDefault;
     Exit;
   end;

   try
     // Открыть документ Word'а
     WordApp.Documents.Add(Template := 'C:\TestDoc.doc');

     // Показать Word
     WordApp.Visible := True;

     // Проверка на существование FormField и связаность с текстом
     if WordApp.ActiveDocument.Bookmarks.Exists('YourFormFieldName') then
       WordApp.ActiveDocument.FormFields.Item('YourFormFieldName').Result := 'Ваш текст';
   finally
     WordApp := Unassigned;
     Screen.Cursor := crDefault;
   end;
end;