ANTICHAT — форум по информационной безопасности, OSINT и технологиям

var
 s:string; //Тип сообщения (сюда будет помещатся пришедшее сообщение от другого юзера(образно говоря))
 i:integer; //Тип скоко юзер не правильно ввел (будем считать что в i значение ноль (0))
begin
 if s='1234' then //Проверяем не равняется ли сообщение - 1234
  begin
    ShowMessage('Вы прошли антиспам бота!');
  end
 else //В случае если не ровно 1234 то вып. i+1 (то есть прибавка к i что юзер ввел не правильно один раз ответ)
  begin
    i:=i+1;
  end;
 if i=3 then //Если юзер не правильно ввел три раза то выск. окно что он нарушил предел попыток
  begin
    ShowMessage('Вы не прошли антиспам бота! И вы заблокированны');
  end;
end;