Text to Speech

[dtrace]

Hallo,
ich habe folgendes Problem. Ich möchte dass mein Programm einen Text vorliest, der in einer Memo steht.
Leider bekomme ich dies nur in englischer Sprache hin. Wie mache ich das in deutsch und was brauche ich dafür?

Delphi-Quellcode:

procedure TForm2.BitBtn1Click(Sender: TObject);
var voice: Olevariant;
begin
 voice := CreateOleObject('SAPI.SpVoice');
 voice.speak('Hello World',0);

end;