Fórum somente numeros da string #336816

function SomenteNumero(Palavra: string): string;
var
  i: Integer;
begin
  Result := ´´;
  for i := 1 to Length(Palavra) do
    if (Palavra[i] in [´0´..´9´]) then
      Result := Result + Palavra[i];
end;