需要使用TPerlRegEx包

//判断是否只有字母和数字

function IsPureNumberOrAlpha(s: string): Boolean;
var
reg: TPerlRegEx; //声明正则表达式变量
begin
reg := TPerlRegEx.Create; //建立
reg.Subject := s; //这是要替换的源字符串
reg.RegEx := '^[a-zA-z][a-zA-Z0-9_]{5,11}$'; //这是表达式, 在这里是准备替换掉的子串
// reg.RegEx := '^[a-zA-z][a-zA-Z0-9_]{3,19}$';
Result := reg.Match;
FreeAndNil(reg); //或 reg.Free
end;

//判断是否只有字母和数字

function IsPureNumberOrAlphaByEngineer(s: string): Boolean;
var
reg: TPerlRegEx; //声明正则表达式变量
begin
reg := TPerlRegEx.Create; //建立
reg.Subject := s; //这是要替换的源字符串
reg.RegEx := '^[a-zA-z][a-zA-Z0-9_]{3,19}$';
Result := reg.Match;
FreeAndNil(reg); //或 reg.Free
end;