Retornar somente números na string

Essa função retorna somente números passados na string. Útil para validação de documentos, testes,etc.


function ApenasNumerosNaString(pStr:String): String;
//Converte uma cadeia de string onde se tenha numeros e caracteres em uma cadeia de strings onde so tenha numeros
Var
  I: Integer;
begin
  Result := '';
  For I := 1 To Length(pStr) do
   If pStr[I] In ['1','2','3','4','5','6','7','8','9','0'] Then
     Result := Result + pStr[I];
end;