Un indice compuesto por dos campos

[__cadetill]

mmmm, no no, eso funciona muy bien en el As400

Supongo que el problema será que 'EMPRES' es de tipo alfanumérico, por lo que el FindKey debería de quedar así

if Table1.FindKey(['001',116])then

osea, encerrado entre comillas.

Nota1: recuerda que cualquier valor de cadena, ha de ir entrecomillado
Nota2: el FindKey, a parte de decirte si existe o no, también se te posiciona en el registro, por lo que no es necesario el GotoKey