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

procedure TFHauptformular.ButtonClick(Sender: TObject);
var wordapp: Microsoft.Office.Interop.Word.Application;
    n : System.&Object;

begin
  wordapp:= Microsoft.Office.Interop.Word.Applicationclass.Create;

  n:= System.Reflection.Missing.Value;

  if (wordapp = nil) then
    begin
      ShowMessage('keine Verbindung!');
      Exit;
    end;
//bis hier ohne Fehler

//Fehler kommt nach Aufruf von:
  wordapp.Visible:= true;
  wordapp.Documents.Open('C:\Datei.doc',n,n,n,n,n,n,n,n,n,n,n,n,n,n);


end;                    

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

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}
      MessageDlg('Microsoft Word konnte nicht gestartet werden!', mtError, [mbOk], 0);
      exit;
    end;
  end;
  Word.visible := true;                    

1:

Word: Variant;