[[egostar]]

Hola

Yo lo haría con un Case, algo así

Código Delphi [-]
 
MiFuncion(Letra:Char):Boolean;
begin
  Case Letra of
      'A'..'C' : begin
          //hago lo que quiera
         result := True;
      end;
      else begin
               ShowMessage('Letra invalida');
               result := False;
      end;
  end;
end;

Salud OS.