با این کد می توانید تعیین کنید که آیا هر یک از اجزای Office در حال اجرا می باشند یا خیر

uses
  ComObj, ActiveX;

function IsActive(ClassName: string): Boolean;
var
  ClassID: TCLSID;
  Unknown: IUnknown;
begin
  try
    ClassID := ProgIDToClassID(ClassName);
    Result  := GetActive(ClassID, nil, Unknown) = S_OK;
  except
    // raise;
    Result := False;
  end;
end;

 مثال:

procedure TForm1.Button1Click(Sender: T);
begin
  if IsActive("Word.Application") then ShowMessage("Word is running !");
  if IsActive("Excel.Application") then ShowMessage("Excel is running !");
  if IsActive("Outlook.Application") then ShowMessage("Outlook is running !");
  if IsActive("Access.Application") then ShowMessage("Access is running !");
  if IsActive("Powerpoint.Application") then ShowMessage("Powerpoint is running !");
end;