Text to speech in Delphi

Check Brian Long tutorial's Speech Synthesis & Speech Recognition Using SAPI 5.1

I wrote a text to speech software using this tutorial.

It reads the clipboard content when I press CTRL + F10

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComObj;

[...]

procedure TForm1.Button1Click(Sender: TObject);
var
  Voice: Variant;
begin
  Voice := CreateOLEObject('SAPI.SpVoice');
  Voice.speak('Hello World');
end;

I did a video awhile back on making your applications talk in Delphi. I personally haven't ever found a use for text to speech in one of my applications, but it's a fun thing to know how to do ;-)