Utilizando o Operador IN

procedure TForm1.Letras(Letra : char);
var
  Alfabeto : set of ´A´..´Z´;

begin
  Alfabeto := [´A´..´Z´];

  if Letra In Alfabeto then

    ShowMessage(Letra + ´  é uma letra do Alfabeto!´)

  else

    ShowMessage(Letra + ´ Não é uma letra do alfabeto´);

end;

var
 Nomes: Array[1..5] of String;
begin
 Nomes[1] := ´João´;
 Nomes[2] := ´Jones´; 
 Nomes[3] := ´Jonas´; 
 Nomes[4] := ´Tereza´;
 Nomes[5] := ´Natália´;

 if Texto in Nomes then