1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
   oleVoice: OLEVariant;
procedure rtferzeugen;
begin
...    //Richedit1 wird mit RTF gefüllt
end;
begin
   rtferzeugen;
   oleVoice := CreateOLEObject('SAPI.SpVoice');
   oleVoice.Speak(richedit1.text, 0);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

      sprachausgabe:=true;
      rtferzeugen;
      oleVoice := CreateOLEObject('SAPI.SpVoice');
      i:=0;
      repeat
        oleVoice.Speak(richedit1.lines[i], 0);
        application.processmessages;  //erneuter Klick auf den Startschalter setzt sprachausgabe:=false;
        inc(i);
      until (i>richedit1.lines.count-1) or (not sprachausgabe);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.Button8Click(Sender: TObject);
type
  SpeechVoiceSpeakFlags = TOleEnum;
const
  SVSFDefault = 0;
  SVSFlagsAsync = 1;
  SVSFPurgeBeforeSpeak = 2;
var i : Integer;
begin
   oleVoice := CreateOLEObject('SAPI.SpVoice');
for I := 0 to 3 do
BEGIN
   oleVoice.Speak('Hallo', 0);
   Sleep(1000);
END;
for I := 0 to 30 do Memo1.lines.add('hallo');

   oleVoice.Speak(Memo1.text, 1);
   Sleep(1000);

   oleVoice.Speak('Hallo', 2); // stoppt die Ausgabe nach 1x Hallo, statt 31x Hallo
end;                    

1:
2:
3:
4:
5:

for I := 0 to 1000000 do
BEGIN
   oleVoice.Speak('Sie liebt mich, sie liebt mich nicht', 0);
   Sleep(1000);
END;                    

1:

olevoice.GetVoices.item(0);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

    Voices := olevoice.getvoices;
    if voices.count>1 then
    begin
      if radiobutton1.checked
      then
        olevoice.Voice := voices.item(0)
      else
        olevoice.Voice := voices.item(1);
    end;