И так у нас получился вот такой скрипт.
uses SysUtils, Classes, RegExpr;
var
War:Boolean;
procedure PrintAllTags(); // распечатать все конструкции с bypass'ами
var RegExp: TRegExpr;
begin
RegExp:= TRegExpr.Create;
RegExp.Expression:= '(<a *(.+?)</a>)|(<button *(.+?)>)';
if RegExp.Exec(Engine.DlgText) then
repeat Print(RegExp.Match[0]);
until (not RegExp.ExecNext);
RegExp.Free;
end;
function Bypass(dlg: string): boolean; // найти и отправить байпасс по названию диалога
var
RegExp: TRegExpr;
SL: TStringList;
i: integer;
bps: string;
begin
