Code:
s:='0.001ABC';
for i:=1 to length(s) do
if (ord(s[i])>=48) and (ord(s[i])<=57) then ergebnis:=ergebnis+s[i]; // 48 bis 57 sind die
ASCII-Codes für 0 bis 9
evtl. ist der 1. Index von s gleich 0 und nicht 1. Dann musst du for-next Schleife von 0 bis length(s)-1 machen.