Case pero con cadenas en vez de con caracteres

[noob]

Hola, tengo este código:

Código Delphi [-]
  if Cadena = 'uno' then
    // Acciones a tomar
  if Cadena = 'dos' then
    // Acciones a tomar
  if Cadena = 'tres' then
    // Acciones a tomar
  if Cadena = 'cuatro' then
    // Acciones a tomar

pero me gustaría hacerlo de tal forma que no hubiera tantos ifs ya que lo que se evalúa es siempre la misma variable, Cadena.

¿Podría hacerse algo como esto?

Evaluo la cadena
Si es uno --> // Acciones a tomar
Si es dos --> // Acciones a tomar
Si es tres --> // Acciones a tomar
Si es cuatro --> // Acciones a tomar

Se que si lo que se evalúa es un caracter sí que se puede pero me temo que con cadenas de texto es imposible, ¿me equivoco?

Saludos.