¿Trabajar con conjunto?

[reevil]

para mayusculas

Código Delphi [-]
if(!((Key >= 65 && Key <= 90) || Key == 46 || Key == 8|| Key == VK_RETURN ))
    Key = 0;

para minusculas

Código Delphi [-]
if(!((Key >= 97 && Key <= 122) || Key == 46 || Key == 8|| Key == VK_RETURN ))
    Key = 0;