1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

// Aufbau Des THreads
type
  TSpeak = class(TThread)
  private
    FText: String;
    FVoice: OLEVariant;
  protected
    procedure Execute; override;
  public
    constructor Create(Text: String);
  end;


// Das Diese Computerstimme was Vorliest
procedure TSpeak.Execute;
begin
  FVoice:= CreateOLEObject('SAPI.SpVoice');
  FVoice.Speak(FText, 0);
end;


// Create vom Thread
constructor TSpeak.Create(Text: String);
begin
  inherited Create(false);
  FText:= Text;
  FreeOnTerminate:=True;
end;

// Thread Createn
procedure TForm1.btn1Click(Sender: TObject);
begin
  th:= TSpeak.Create('Hello');
end;                    

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

// Das Diese Computerstimme was Vorliest
procedure TSpeak.Execute;
begin
  CoInitialize(NIL);
  FVoice:= CreateOLEObject('SAPI.SpVoice');
  FVoice.Speak(FText, 0); // unterstellt, dass diese Methode blockiert
  CoUnInitialize;
end;