在Delphi中从字符串中剥离非字母数字字符的最快方法是什么？

uses RegularExpressions;

function StripNonAlphanumeric(const Input: string): string;
var
  RegEx: TRegEx;
begin
  RegEx := TRegEx.Create('[^a-zA-Z0-9]');
  Result := RegEx.Replace(Input, '');
end;