pues a mi se me haria mas facil algo asi como:
Código Delphi
[-]
strResultado := Copy(strTraduccion, Pos('(')+2, Pos(')'-2 - Pos('(')+2);
la idea es buscar cuando se abre el parentesis, y agregamos 2 caracteres para que empieze en la palabra, despues buscamos donde se cierra, quitamos los caracteres, restamos la primera posicion para saber el numero de caracteres a copiar que pide la funcion y ya