Extract int from string(Delphi)

function extractInt(str:string):integer;
var tmp:string;
begin
for i:=1 to Length(str) do
  if str[i] in ['0'..'9'] then tmp:=tmp + String(str[i]);
  Result:=StrToInt(tmp);
end;