Probleme mit Sprachaausgabe (sapi sdk 5.1)

[Bummi]

Ich habe gerade kein Delphi < 2010 zur Hand, der beschrieben Fehler lässt sich mit 2010 nachstellen und folgendermaßen umgehen.

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var
  voice: OLEVariant;
  SavedCW: Word;
begin
  voice := CreateOLEObject('SAPI.SpVoice');
  // asynchron
  voice.Speak('Hello world!', 1);
  Showmessage('Hallo');

  // synchron
  SavedCW := Get8087CW;
  try
    Set8087CW(SavedCW or $4);
    voice.Speak('Hello World!', 0);
  finally 
    Set8087CW(SavedCW);
  end;
  Showmessage('Hallo');
end;