[roman]

Creo que en la opción de jhonny, en lugar de

Código Delphi [-]
if Letra in [Vocal] then

debería ser

Código Delphi [-]
if Letra in [A..U] then

o, en su defecto, declarar una constante

Código Delphi [-]
const
  Vocales = [A..U];

y usar

Código Delphi [-]
if Letra in Vocales then

// Saludos