Проверка установки офиса

{$R *.dfm}
 uses ActiveX;

procedure TForm1.Button1Click(Sender: TObject);
var
    Excel_ID: TCLSID;
    Rez : HRESULT;
begin
  Rez := CLSIDFromProgID(PWideChar(WideString('Excel.Application')), Excel_ID);
  if Rez <> S_OK then
  begin
    MessageDlg('EXCEL НЕ установлен.',mtERROR,[mbok],0);
    Exit;
  end
  else
  if Rez = S_OK then
  begin
    MessageDlg('EXCEL установлен.',mtInformation,[mbok],0);
    Exit;
  end
end;

end.