Arkadaşlar bu konuda yardım edebilecek biri var mı cok acil yapmam gerekiyor .Sorun bu kodlar memodan yazıyı alıp butona tıkladığımızda bilgisayarın okuması icindir.ama bunları delphide calıştırdığımda calışıyor exe olarak kaydettiğimde o aşağıdaki kodu icindeki 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 Button1Click(Sender: TObject);
private

public

end;

var
Form1: TForm1;

implementation




procedure TForm1.Button1Click(Sender: TObject);
var
voice: OLEVariant;

begin

voice := CreateOLEObject('SAPI.SpVoice');
voice.Speak(Memo1.text, 0);

end;

end.
__________________