Hola Javier13.
El planteo está bastante confuso, pero a ver si se trata de algo así...
Código Delphi
[-]
...
var
TS: TStringList;
maximo, valor: Integer;
digito: Char;
begin
digito := '9';
TS := TStringList.Create;
try
TS.CommaText := '0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,g,h,' +
'i,j,k,l,m,n,ñ,o,p,q,r,s,t,u,v,w,x,y,z';
maximo := TS.Count;
valor := TS.IndexOf(digito);
ShowMessageFmt('maximo: %d, valor: %d',[maximo, valor]);
finally
TS.Free;
end;
end;
Saludos