Microsoft Sam sprechen lassen

uses ... COMobj;


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