Buscar número en cadena

[jachguate]

podes intentar convertirlo a un número, y si la conversión falla, asumir que hay algun otro caracter...

  try
    StrToInt(cadena);
  except
    on EConvertError do
      NumeroInvalido := True;
  end;

Hasta luego.