function CheckSJHRegEx(sjh: string): Boolean;
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create();
reg.Subject := sjh;
reg.RegEx := '1(3|5|7|8)\d{9}';
Result:= reg.Match;
FreeAndNil(reg);
end;
function CheckSJHRegEx(sjh: string): Boolean;
var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create();
reg.Subject := sjh;
reg.RegEx := '1(3|5|7|8)\d{9}';
Result:= reg.Match;
FreeAndNil(reg);
end;