Tenta com o comando Case of assim:

case strtoint(editIdade.text) of
18..40 : showmessage('Voce é responsavel')
...