[[maeyanes]]

Hola...

Tan fácil como recorrer la cadena:

Código Delphi [-]
function GetIsNotADigitPos(Str: string): Integer;
var
  I: Integer;

begin
  for I := 1 to Lenght(Str) do
    if not (Str[i] in ['0'..'9']) then
      Exit(I)
end;

Saludos...