Texto a voz en vista

Lo hice creando un objeto OLE con Delphi en 2000 / NT / XP de la siguiente manera:

Voice := CreateOLEObject('SAPI.SpVoice');
Voice.speak(...)

Pero esto no funciona en Vista, ¿cómo puedo hacer que mi programa simplemente diga un texto en Vista?