Forma 1 buton ve text edit koyun ve formun kod kısmını aşağıdaki gibi yapın. uses kısmına comobj eklemeyi unutmayın.
Not: Bu olay XP de sorunsuz calışmakta.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private

public

end;

var
Form1: TForm1;

implementation



procedure TForm1.Button1Click(Sender: TObject);
var
oleVoice: OLEVariant;
begin
oleVoice := CreateOLEObject('SAPI.SpVoice');
oleVoice.Speak(edit1.Text, 0);

end;

end.
__________________