Pascal/Turbo Pascal - PROBLEMA CON INDICES DE VECTORES

Tengo el siguiente problema.

He definido un array de numeros enteros, cuyos indices son letras 'A' 'B' 'C' ... etc.

resulta que en el programa realizado tengo que pedir al usuario que me escriba una letra, para acceder a la posicion del vector A, B, C etc... y hay hacer unas operaciones.

Resulta que al poner el caracter introducido por el usuario en el vector me da Range check error...
y no entiendo porque...

Os dejo el codigo...

Procedure entrada_piezas(var Lista:TListaPiezas);
Var
TP: char;
CP: integer;
Begin
Writeln('Se¤ale el tipo de pieza introducida');
readln(TP); {QUE SEA UNA DE LAS LETRAS INTRODUCIDAS}
Writeln('Cantidad: ');
read(CP);

Lista.Piezas.Cantidad[TP]:= (Lista.Piezas.Cantidad[TP]) + CP;


end;

He comprobado sustituyendo el TP por una 'A' en la operacion final y de esta forma SI que va, asi que el error esta en que no reconoe TP como un char, y me pone RangeChekError... Cosa que no entiendo...

¿Me podeis ayudar por favor?

Pon la declaración de TListaPiezas

porfavor necesito todo lo relacionado con vectores,clases,concepto,ejemplo,tambien registros,gracias

por favor necesito todo lo relacionado con vectores, conceptos ejm ,, gracias

por favor nesesito todo lo relasionado con vectores clases,conceptos,ejemplos,tambien registros gracias

por favor nesecito todo lo relacionado con los vectores