.doc a html con el Word

[SCH]

Hola, necesito pasar un documento Word .doc a html, para hacerlo utilizo el siguiente código:

------
...
WordApp := CreateOleObject('Word.Basic');
WordApp.FileOpen(archivo);
WordApp.FileSaveAs(Name := 'temp.htm', Format := 10);
...
------

Con él consigo salvar el documento como html pero sólo si el Office instalado es el XP, si es el 97 la última linea parece que debe variar y asignarle a Format el valor 8.
La pregunta es cómo se puede obtener la versión del Office que tenga instalada el equipo (para ejecutar una linea u otra) o si hay otra formar de salvar en formato html de forma que el código sea el mismo para todas las versiones del Office.

Gracias, espero que me podais echar una mano.