char to string?

[MLROJO]

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!.