Delphi is the expression of the syntax (2) or with the repetition

// | The use of the number, | Yes, or it means.

var
　 reg: TPerlRegEx;
begin
　 reg := TPerlRegEx.Create(nil);
　 reg.Subject := 'CodeGear Delphi 2007';
　 reg.RegEx　 := 'e|Delphi|0'; //使用了 | 记号
　 reg.Replacement := '◆';
　 reg.ReplaceAll;
　 ShowMessage(reg.Subject); //返回: Cod◆G◆ar ◆ 2◆◆7
　 FreeAndNil(reg);
end;

+ is used, + is repeated 1 or more

var
　 reg: TPerlRegEx;
begin
　 reg := TPerlRegEx.Create(nil);
　 reg.Subject := 'a aa aaa aaaa ab abb abbba a呀a';
　 reg.RegEx　 := 'ab+'; //使用了 + 记号, 这里是允许 a 后面有 1 个或 多个 b
　 reg.Replacement := '◆';
　 reg.ReplaceAll;
　 ShowMessage(reg.Subject); //返回: a aa aaa aaaa ◆ ◆ ◆a a呀a
　 FreeAndNil(reg);
end;

* The use of * is to repeat 0 or more

var
　 reg: TPerlRegEx;
begin
　 reg := TPerlRegEx.Create(nil);
　 reg.Subject := 'a aa aaa aaaa ab abb abbba a呀a';
　 reg.RegEx　 := 'ab*'; //使用了 * 记号, 这里是允许 a 后面有多个或者 没有 b
　 reg.Replacement := '◆';
　 reg.ReplaceAll;
　 ShowMessage(reg.Subject); //返回: ◆ ◆◆ ◆◆◆ ◆◆◆◆ ◆ ◆ ◆ ◆ ◆呀◆
　 FreeAndNil(reg);
end;

// ? The use of,? is to repeat 0 or 1

var
　 reg: TPerlRegEx;
begin
　 reg := TPerlRegEx.Create(nil);
　 reg.Subject := 'a aa aaa aaaa ab abb abbba a呀a';
　 reg.RegEx　 := 'a?'; //使用了 ? 记号
　 reg.Replacement := '◆';
　 reg.ReplaceAll;
　 ShowMessage(reg.Subject); //返回: ◆ ◆◆ ◆◆◆ ◆◆◆◆ ◆b ◆bb ◆bbb◆ ◆呀◆
　 FreeAndNil(reg);
end;

The use of curly braces <1>, specifying the number of repetitions

var
　 reg: TPerlRegEx;
begin
　 reg := TPerlRegEx.Create(nil);
　 reg.Subject := 'a aa aaa aaaa ab abb abbba a呀a';
　 reg.RegEx　 := 'a{3}'; //这里指定重复 3 次
　 reg.Replacement := '◆';
　 reg.ReplaceAll;
　 ShowMessage(reg.Subject); //返回: a aa ◆ ◆a ab abb abbba a呀 a
　 FreeAndNil(reg);
end;

Use of curly braces <2>

var
　 reg: TPerlRegEx;
begin
　 reg := TPerlRegEx.Create(nil);
　 reg.Subject := 'a aa aaa aaaa ab abb abbba a呀a';
　 reg.RegEx　 := 'a{2,4}'; //这里指定重复 2-4 次
　 reg.Replacement := '◆';
　 reg.ReplaceAll;
　 ShowMessage(reg.Subject); //返回: a ◆ ◆ ◆ ab abb abbba a呀a
　 FreeAndNil(reg);
end;

Use of curly braces <3>

var
　 reg: TPerlRegEx;
begin
　 reg := TPerlRegEx.Create(nil);
　 reg.Subject := 'a aa aaa aaaa ab abb abbba a呀a';
　 reg.RegEx　 := 'a{1,}'; //n 个或多个, 这里是 1 个或多个
　 reg.Replacement := '◆';
　 reg.ReplaceAll;
　 ShowMessage(reg.Subject); //返回: ◆ ◆ ◆ ◆ ◆b ◆bb ◆bbb◆ ◆ 呀◆
　 FreeAndNil(reg);
end;

The above {1,} and + are equivalent;

and {0,1} with? is equivalent;

{0,} and * are equivalent