Delphi memo daki yazıyı butonla sesli okutmak yardım !!!!

[emoneo]

rkadaşlar bu konuda yardım edebilecek biri var mı çok acil yapmam gerekiyor .Sorun bu kodlar memodan yazıyı alıp butona tıkladığımızda bilgisayarın okuması içindir.ama bunları delphide çalıştırdığımda çalışıyor exe olarak kaydettiğimde o aşağıdaki <<< voice.Speak(Memo1.text, 0); >> kodu içindeki 0 nedeniyle '' floating point division by zero'' hatası veriyor acil yardım


unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Comobj;
type
TForm1 = class(TForm);
Button1: TButton;
Memo1: TMemo;
procedure ListBox1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}

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