//=============================================================================
//  ワードの使用可否をチェック
//  usseにComObjが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  ObjWord : OleVariant;
  StrVer  : String;
begin
  try
    ObjWord := CreateOleObject('Word.Application');
    StrVer  := ObjWord.Version + '　が使用可能です';
    Application.MessageBox(PChar(StrVer), '情報', MB_OK);
  except
    Application.MessageBox('ワードがインストールされていません', '情報', MB_OK);
  end;
  objWord.Quit;
  ObjWord := Unassigned;
end;