Создал чат. Нужен анти спам

[Pein95]

здесь нужно хорошо обдумать сам алгоритм, мой первый вариант такой:
делаем таймер с интервалом в 1 сек...
+ есть переменная щетчик которая в событии таймера увеличиваетса на 1;
дальше когда клиент отсылает сообщение запоминаетса значение переменной щетчика, также нам нужен щетчик нажатия на кнопку, когда щетчик нажатия равент 3 проверяем различие между значением переменной которая запоминала значение щетчика и самим щетчиком если интервал оч мал отключаэм клиента попробуйте сами ето реализировать. не знаю будет ли работать, алгоритм придумал за 2 мин так что не уверен.

[Shouldercannon]

procedure TFormMain.AntiFlood;
begin
  if GetTickCount - LTime < 7000 then
    begin
      inc(BCount);
      // Три нажатия - два интервала < 7-ми секунд
      if BCount = 10 then
        begin
          BCount := 0;
          T := T + 1;

          if IntToStr(T) = '3' then
            begin
              Locked := True;
              SendRVEdit.Clear;
              SendRVEdit.Format;
              ChatView.AddTextFromNewLine('[' + TimeToStr(Now) + '] ', 1);
              ChatView.AddText('Автобан за флуд', 9);
              ChatView.Format;

              RVEChatAutoscroll;

              StatusBar1.Panels[0].Text := 'Автобан за флуд';

              // Отправляем команду автобана
              ClientSocket.Socket.SendText('30');

              // Сбрасываем счётчик
              T := 0;

              Exit;
            end;
          Exit;
        end;
    end
    else
    begin
      LTime := GetTickCount;

      // Счетчик сбрасываем не сразу два быстрых нажатия одно длинное и опять быстрое приведут к блокировке
      if BCount > 0 then dec(BCount);
    end;
end;