1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

try
    Word := CreateOleObject('Word.Application');
  except
    ShowMessage('Kann Word nicht starten !');
    Exit;
  end;

   Word.Documents.Open('deinworddokument');

   Word.Visible := True;

   Word.ActiveDocument.FormFields.Item('deintextformularfeld').Result :=
   'Dein einzusetzender Wert';