Thread mit OLEVariant

[ReDoX]

Ich habe es jetzt so

Delphi-Quellcode:

procedure TReadThread.Execute;
 var oleVoice: OLEVariant;
begin
    CoInitialize(nil);
     try
      oleVoice := CreateOLEObject('SAPI.SpVoice');
      oleVoice.Speak(ftext);
       finally
        CoUninitialize;
     end;
end;

gemacht.
Und was soll ich sagen es funktioniert
Danke!
Mfg ReDoX