Hola,
Prueba con esto:
Código Delphi
[-]
var
opcion:char;
begin
memo1.Lines.clear;
opcion:=edit1.text[1];
case opcion of
'a','A':memo1.lines.add('Excelente');
'b','B':memo1.lines.add('Muy Bien');
'c','C':memo1.lines.add('Mas o Menos');
'd','D':memo1.lines.add('Reprobado');
end;
end;
Simplemente he redefinido la variable como char y capturado en ella el primer caracter mediante .text[1]
Ya nos comentarás si con esto se consigue lo que pretendes.
Saludos!.