[ecfisa]

Hola.

Empezado por Javier13

Seria mas fácil la función ansipos?

Si por supesto.

Código Delphi [-]
var
  alfabeto: AnsiString;
  digito: Char;
begin
  alfabeto := '0123456789abcdefghijklmnñopqrstuvwxyz';
  digito   := '9';
  ShowMessageFmt('maximo: %d, valor: %d', [Length(alfabeto), AnsiPos(digito, alfabeto)]);
end;

Saludos