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

begin
     try
  WordApplication1.Connect;        {verbinden zu Word}
  WordApplication1.visible:= true; {Word anzeigen}

  Referenzbericht := 'C:\Word\ReferenzReport.doc';  {Filename nur als DOC_Vorlage????}
  WordApplication1.Documents.Open(Referenzbericht,emptyparam,emptyparam,
                                                 emptyparam,emptyparam,emptyparam,
                                                 emptyparam,emptyparam,emptyparam,
                                                 emptyparam);     {Datei Öffnen}
    WordDocument1.ConnectTo(WordApplication1.ActiveDocument);  {Dokument verbinden}

    except
        ShowMessage('Microsoft Word kann nicht gestartet werden!');
        Exit;
         end;					

1:

Word.Documents.Add(EmptyParam, EmptyParam);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

uses ComObj;

procedure wordformular;
var Word: variant;
begin
  screen.Cursor := crHourglass;
  try
    // Es wird zuerst versucht, eine laufende Word-Instanz zu verwenden
    word := GetActiveOleObject('Word.Application');
  except
    try
      // Läuft Word noch nicht, wird eine neue Verbindung aufgebaut
      Word := CreateOleObject('Word.Application');
    except
      // Schlägt sie fehl (Word nicht installiert), gibt es eine Fehlermeldung
      ShowMessage('Microsoft Word kann nicht starten.');
      screen.cursor := crDefault;
      exit;
    end;
  end;
  word.visible := true;
  Word.Documents.Add(Template:='C:\beispiel.doc');
  try
    Word.ActiveDocument.FormFields.Item('Name').Result := 'Hans Müller';
    Word.ActiveDocument.FormFields.Item('Ort').Result := 'Berlin';
  finally
    word := unassigned;
    screen.cursor := crDefault;
  end;
end;