das mit dem spech ist wirklich nicht schwer, habe mich gerade mal hingesetz:
Code:
uses StdCtrls, Comobj;
[...]
procedure TForm1.Button1Click(Sender: TObject);
var
voice: OLEVariant;
begin
voice := CreateOLEObject('
SAPI.SpVoice');
voice.Speak(edit1.Text, 0);
end;