VorleseProgramm liest jetzt vor... Aber nur auf englisch :/

[MisterNiceGuy]

Mit folgendem Text kann man sich ganz einfach Texte vorlesen lassen.

Code:

uses Comobj; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  voice: OLEVariant; 
begin 
  voice := CreateOLEObject('SAPI.SpVoice'); 
  voice.Speak('Hello World!', 0); 
end;

Leider nur, wenn man XP besitzt... und wenn man seine Texte mit einem starken englischen Akzent hören möchte. Kurzum, es wird englisch gesprochen

Kann mir mal jemand sagen, wie ich das auf deutsch hinbekomme???