// *********************************************************************//
// Interface: ISpVoice
// Flags:     (512) Restricted
// GUID:      {6C44DF74-72B9-4992-A1EC-EF996E0422D4}
// *********************************************************************//
type
  ISpVoice = interface(ISpEventSource)
    ['{6C44DF74-72B9-4992-A1EC-EF996E0422D4}']
    function Speak(pwcs: PWideChar; dwFlags: LongWord; out pulStreamNumber: LongWord): HResult; stdcall;
  end;

// Constants for enum SpeechVoiceSpeakFlags
type
  SpeechVoiceSpeakFlags = TOleEnum;
const
  SVSFDefault = $00000000;
  SVSFlagsAsync = $00000001;

const
  SVSFParseSapi = $00000080;

var SpeechFlags: SpeechVoiceSpeakFlags;

if IsWin7
   then SpeechFlags := SVSFlagsAsync OR SVSFParseSapi
   else SpeechFlags := SVSFlagsAsync;

SpVoice.Speak(pText, SpeechFlags);