Mira en las ayudas sobre
Soundex
TBucketList
La idea es que usas BucketList para almacenar cada palabra y SOundex para hacer comparaciones...
Quiero decir, en vez de algo directo como:
if 'Ejemplo' in ListaString
Es
if Bucket('Ejemplo') in Soundex(ListaString)
PD: Obvio que esa sintaxis me la invente