uses SysUtils, Classes;
var
a1, a2: integer;
procedure Captcha;
begin
while delay(100) do begin
if Engine.Status = lsOnline then begin
case Engine.WaitAction([laDlg], a1, a2) of
laDlg: if (Pos('Antibot', Engine.DlgText)>0) then
Engine.BypassToServer('antibot_correct');
end;
end;
delay(1000);
end;
end;
begin
Script.NewThread(@Captcha);
end.