DBR Delphi-Ecke

// Wenn sich auf dem Rechner das "Microsoft Speech API" befindet, kann
// man sich mittels "Text-To-Speech" englische Texte vorlesen lassen.

// Getestet mit D4 unter XP

uses Comobj; 
 
function speak(txt: string): boolean; 
var 
  ov: OLEVariant; 
begin 
  try 
    ov := CreateOLEObject('SAPI.SpVoice'); 
    ov.Speak(txt, 0); 
  except 
    result := false; 
    exit; 
  end; 
  result := true; 
end; 
 
procedure TForm1.Button5Click(Sender: TObject); 
begin 
  if not 
    Speak('That makes fun.') 
    then showmessage('Fehler'); 
end;