Funciones

[Daniel2622]

Si
Se supone que el código debe de imprimir los mensajes dependiendo lo que yo agregó, por ejemplo:
Si pongo "A" debe imprimir "letra mayúscula"
Si pongo "a" debe imprimir "letra minúscula"
Si pongo "3" debe imprimir "dígito"
Si pongo "$" debe imprimir "carácter especial", ya había hecho un código que hacía eso.
Este es el código:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var c:char;
begin
 c:=Edit1.Text[1];
 case c of
'0'..'9':Edit2.Text:='Digito';
'a'..'z':Edit2.Text:='minuscula';
'A'..'Z'Edit2.Text:='Mayuscula';
else Edit2.Text:='Carácter especial';
end;
end;

Entonces el código anterior lo tengo que hacer con funciones que es un subprograma que realiza una tarea especifica y puede devolver uno o más valores al lugar donde se hizo el llamado.

Esperó y me haya dado a entender.
Gracias y Saludos.