\Abra o delphi e nele coloque um Botão e um Edit. \No OnClick do botão coloque esse código:

var
voz: OLEVariant;
begin
voz := CreateOLEObject('SAPI.SpVoice');
if (Edit1.Text <> 'Digite seu texto aqui') and (Edit1.Text <> '') then
voz.Speak(Edit1.Text, 0); //o sistema vai falar o texto digitado no Edit1
end;