[*Caro*]

Hola Milperrimo, tambien lo puedes hacer de esta forma

Código Delphi [-]

 case AnsiIndexStr(cadena,['Uno', 'Dos', 'Tres']) of
  0 : showmessage('Uno');
  1 : showmessage('Dos');
  2 : showmessage('Tres');
  -1 : //la cadena no se encuentra en el arreglo, seria como el else del Case;
 end;

La función AnsiIndexStr te devuelve el indice de una cadena dentro de un arreglo de cadenas y -1 si no encuentra dentro de ese arreglo.

Saluditos