Funciones

[Daniel2622]

Hola, tengo problemas con el siguiente ejercicio:
Escribe una función que devuelva si un carácter es un dígito (0 a 9), es una letra mayúscula, es una letra minúscula o es un carácter especial.
El código que he creado es este:

Código Delphi [-]
Function Caracter(c:char):integer;
var n:integer;
begin
  case c of
  '0'..'9':'Digito'
  'A'..'Z':'Letra mayuscula'
  'a'..'z':'Letra minuscula';
  else 'Caracter especial';
  end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var n:integer;
begin
 val(Edit1.Text,n);
 n:=Caracter(c);
 Edit2.Text:=FloatToStr(n);
end;

Y me marca los siguientes errores:
unit1.pas(61,3) Error: Illegal expression
unit1.pas(61,3) Fatal: Syntax error, ";" expected but "const char" found

Espero y me puedan ayudar.
Gracias, Saludos.