Case para Strings

Estou fazendo a parte de reconhecimento de parâmetros do meu sistema, e gostaria de não precisar fazer if else if else. Seria apenas para manter um código mais limpo e claro. A solução seria um case, porém, case só aceita inteiros. Alguém sabe de algo que resolva isto?

Por exemplo:

var Texto: String;begin case texto of 'TESTE': ShowMessage('Foi encontrado o Teste'); 'OUTRO': ShowMessage('Bla bla bla'); end;end;