Wobei ich mich erstmal gefragt hatte, was tNumArray sein soll.
PS:
Delphi-Quellcode:
if (ord(Str[i]) >= 48) and (ord(Str[i]) <= 57) then begin
if (Str[i] >= '0') and (Str[i] <= '9') then begin
if CharInSet(Str[i], ['0'..'9']) then begin // früher if Str[i] in ['0'..'9'] then begin