Zahlen in einem String finden

[ATS3788]

Delphi-Quellcode:

function CountNumber(const Str: string): tNumArray;
var
i,a       : integer;
begin
   FillChar(Result , SizeOf(tNumArray) , 0);
   a := 0;
   for i := 1 to length(Str) do
   if (ord(Str[i]) >= 48) and (ord(Str[i]) <= 57) then begin
     Result[a] := StrToInt(Str[i]);
     inc(a);
   end;
end;

Also habe das so gemacht, geht echt gut
ist aber nicht "ELEGANT"

Wie komme ich darauf. In C++ geht vieles,
laßt mich sagen anders. Manches dort ist
"ELEGANT" anderes einfach schwer zu lesen,
dedewegen liebe ich Delphi