Обычная текстовая капча

[Akim4eg]

ну вот впринцепе и она:
п.с. новичек в этом) переделал математическую в обычныю вроде работает.

uses SysUtils;




 var tmpDialog,tmpString:string;
 var posCaptcha, num1,g , resultNum, count:integer;
begin
  while Engine.Status = lsOnline do begin
    tmpDialog := Engine.DlgText;
    if (Pos('Активирован штраф', tmpDialog) <> 0) then
begin
tmpString:='';
tmpDialog:=''; 
// Ищем капчу в диалоге
    tmpDialog:=Engine.DlgText;
    posCaptcha:=pos('<font color=LEVEL>',tmpDialog);
posCaptcha:=posCaptcha+18;




// Выдираем число из капчи 
while not (tmpDialog[posCaptcha] = '<') do begin
tmpString:=tmpString + tmpDialog[posCaptcha];
posCaptcha:=posCaptcha + 1;
end;
num1:=StrToInt(tmpString);

resultNum:=num1;
print(IntToStr(resultNum));

if not (IntToStr(resultNum) = IntToStr(g)) then begin // Отправляем ответ на капчу 
Engine.BypassToServer('00 '+IntToStr(resultNum), True); 
count:=count+1;
g:=resultNum;
print ('Капча выскакивала -->'+IntToStr(count)+'<-- раз, но мы ее обошли =)');
end;
end;
Delay (888);
end;
end.