Mal schnell zusammengeflickt....
Delphi-Quellcode:
function ExtractNumbers(s : String) : String;
var i : Integer;
begin
Result := '';
for i := 1 to length(s) do
if s[i] in ['0'..'9'] then Result := Result + s[i]
end;
Könntest auch zuerst alle Nicht-Zahlen aus dem String löschen und dann den "Reststring" dem Result zuordnen.