Hola,
En ese caso puedes hacer algo como esto:
Código Delphi
[-]function CaracterPermitido(Caracter: Char): boolean;
begin
result := Pos(Caracter,SOLO_CHARS) > 0;
end;
Siendo, SOLO_CHARS de esta forma:
Código Delphi
[-]const
SOLO_CHARS = 'ABCLTU';
De modo que sólo tienes que hacer tu función (o procedimiento) de modo tal que llame a la función anterior para comprobar si es un caracter válido y de allí hacer la operatoria necesaria.
Saludos,