[Aristarh Dark]

Код:

var
  curStr : string;
  cutedStr : string;
  i:integer;
begin
  curStr := 'acds dfs _ df3425 dd';
  cutedStr:='';
  for i:=1 to Length(curStr) do
    if curStr[i] in ['0'..'9'] then
      cutedStr:=cutedStr+curStr[i];