匹配:function Match(S: string): string;
begin
  Result := TRegEx.Match(S, '.+ (?<![<>:])(=+) .+').Result('$1');
end;procedure TForm1.btn1Click(Sender: TObject);
var
  S:string;
begin
  S:='if R1 == R2 then';
  Caption:=Match(S);
end;替换:var
  S:string;
begin
  S:='if R1 = R2 then';
  Caption:=TRegEx.Replace(S,'( = )',' == ');
end;