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