IndexOf

[ecfisa]

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