ну вот впринцепе и она:
п.с. новичек в этом) переделал математическую в обычныю вроде работает.
uses SysUtils;
var tmpDialog,tmpString:string;
var posCaptcha, num1,g , resultNum, count:integer;
begin
while Engine.Status = lsOnline do begin
tmpDialog := Engine.DlgText;
if...