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:

uses ComObj;
...

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:\MeinDokument.doc');
  //Einfach mal den erstbesten Text anzeigen
  ShowMessage(Word.ActiveDocument.Range.Text);
  screen.cursor:=crDefault;
end;