[dec]

Hola,

A ver si esto pudiera servir:

Código Delphi [-]
 var
   tecla: Char;
 begin
   tecla := 'A';
   if (tecla in ['0'..'9']) then
     ShowMessage('Es un número');
   if (tecla in ['A'..'Z']) then
     ShowMessage('Es una letra mayúscula');
   if (tecla in ['a'..'z']) then
     ShowMessage('Es una letra minúscula');
 end;