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

var Word:Variant;
begin
  screen.Cursor:=crHourglass;
  try
    {Es wird zuerst versucht, eine laufende Word-Instanz zu verwenden}
    word:=GetActiveOleObject('Word.Application');
    word.visible:=True;
  except
    try
      {Läuft Word noch nicht, wird eine neue Verbindung aufgebaut}
      Word:=CreateOleObject('Word.Application');
      //Soll Word sichtbar sein?
      word.visible:=true;
    except
      {Schlägt sie fehl (Word nicht installiert), gibt es eine Fehlermeldung}
      ShowMessage('Microsoft Word kann nicht starten.');
      screen.cursor:=crDefault;
      exit;
    end;
  end;
  //Dokument öffnen
  Word.Documents.Open('C:\test.doc');
  screen.cursor:=crDefault;
end;                    

1:

Word.ActiveDocument.Range.Text:='Test';