http://narod.ru/disk/36449677001/Pro.exe.html

На всякий случай.
http://narod.ru/disk/36449872001/Loquendo.zip.html

function CPUisMMX: Boolean;
var I: Integer;
begin
I := 0;
Result := false;
asm // check if bit 21 of EFLAGS can be set and reset
PUSHFD
POP EAX
OR EAX, 1 shl 21
PUSH EAX
POPFD
PUSHFD
POP EAX
TEST EAX, 1 shl 21
JZ @@1
AND EAX, not( 1 shl 21 )
PUSH EAX
POPFD
PUSHFD
POP EAX
TEST EAX, 1 shl 21
JNZ @@1
INC [ I ]
@@1:
end;
if I = 0 then Exit; // CPUID not supported
asm // get CPU features flags using CPUID command
MOV EAX, 1
PUSH EDX
PUSH EBX
PUSH ECX
DB $0F, $A2
MOV [ I ], EDX // I := features information
POP ECX
POP EBX
POP EDX
end;
if (I and (1 shl 23)) <> 0 then
Result := true;
end;

CODE ROL ( u -- u1 ) \ ассемблерное определение функции ROL
ROL 0h[EBP] , 1h
RET
END-CODE \ конец определения
: HASH ( addr u -- u1 )
SWAP 2DUP
+ SWAP
?DO
I C@ XOR ROL
LOOP
;

\ examples
\ Все хэши будут рассеяны по таблице длиной 25 элементов (в примере)
\ Так хорошо организовывать поиск в больших массивах данных
(
S" dima" HASH 25 MOD .
S" test" HASH 25 MOD .
S" ыловарлывоалоывр" HASH 25 MOD .
)

http://narod.ru/disk/62434970001.56ba5e78ed06e8be600fba58ebc57f73/Loquendo.rar.html
Это сам голос + (надо в конце установки запустить).

<?xml version="1.0" encoding="UTF-8"?>
<config>
<voices>
<voice name="Dmitri" mothertongue="Russian">
<library name="LTTS7${name}" entrypoint="${name}" />
<info description="Russian male voice" age="35" gender="male" demosentence="Меня зовут Дмитрий, я – мужской голос компании Локуэндо, мой родной язык – русский." basepitch="120" basespeed="128" />
<resources path="modules/${name}">
<resource class="base" type="vocaldb" name="${name}">
<flavour codec="LTTS7CodecMsx" frequency="16000" bitrate="32800" rank="10" name="${parent.name}.${this.frequency}.${this.codec}.${this.bitrate}.${this.rank}.bin" />
</resource>
<resource class="gilded" type="vocaldb" name="${name}GildedPhrases">
<flavour codec="LTTS7CodecMsx" frequency="16000" bitrate="32800" rank="10" name="${parent.name}.${this.frequency}.${this.codec}.${this.bitrate}.${this.rank}.bin" />
</resource>
<resource class="gilded" type="vocaldb" name="${name}GildedParalinguistics">
<flavour codec="LTTS7CodecMsx" frequency="16000" bitrate="32800" rank="10" name="${parent.name}.${this.frequency}.${this.codec}.${this.bitrate}.${this.rank}.bin" />
</resource>
</resources>
<modes>
<mode name="default">
<parameters />
<resources>
<remove class="" type="" name="" />
<add class="base" type="" name="" />
<add class="gilded" type="" name="" />
</resources>
</mode>
</modes>
<languagealiases>
<alias type="internal" name="${mothertongue}" />
<alias type="IETF" name="ru-RU" />
<alias type="WinLangid" name="1049" />
<alias type="generic" name="ru" />
<alias type="generic" name="ru-RU" />
</languagealiases>
</voice>
</voices>
</config>