[jhonny]

No conozco una función que lo haga desde fabrica, de manera pues que teniendo en cuenta la estructura que haz armado, por ahora podemos intentar el siguiente ejemplo :

Código Delphi [-]
 
private
   Vocal : TVocal;

procedure VocalConsonante(Letra :TLetra);
begin
  if Letra in [Vocal] then
    ShowMessage('Vocal')
  else
    ShowMessage('Consonante');
end;

//Edito: Para nombrar las variables singularmente.