begin
  WinExec('D:\Test.Doc', SW_NORMAL);
end;

var vWordApp,vWordDoc:Variant;
begin
  vWordApp := CreateOleObject('Word.Application');
  vWordApp.Visible := True;        //將 Word 顯示出來
  vWordApp.DisplayAlerts := False; //離開時, 不提醒未儲存的訊息
  vWordDoc := vWordApp.Documents.Add(sRptFile, False); //開啟 Word 
  vWordDoc.Activate;
end;
 

Uses... Comobj    Var 
  WrdObj : Variant;
begin
  Try
    WrdObj := CreateOLEObject('Word.Application');
    WrdObj.Documents.Add;
    WrdObj.Caption := '應用程式調用Word測試';
    WrdObj.Visible := True;
  Except
    Exit;
    ShowMessage('無法啟動WORD應用程式');
  end;
end;