if CheckBox1.checked then // если отмечен
       timer1.enabled:=true // включаем таймер
       else // иначе
       timer1.enabled:=false; // выключаем

    var
       i:integer;
       begin
       for i:=0 to listbox1.items.count-1 do // Перебор строк списка
       if pos(listbox1.items[i], log.lines.text)<>0 then //если совпал текст в логе, и в списке то...
       wsocket1.sendstr('ACTION 3 '+listbox1.items[i]); //запрос на посадку+ ID из списка

listbox1.items.add(Inputbox('Заголовок', 'Описание', 'Вводимый текст')); // добавляем в список

listbox1.deleteselected; // удалили выбранную строку.

if checkbox.checked=true then begin
   if переменная='3' then begin
    socket.sendtext('ACTION 3 '+ID+#13#10+'QUIT');
   end;
end else begin
     socket.sendtext('ACTION 3 '+ID);
end; end;

procedure TimeSazh;
var   
TS:TStringList;   // здесь мы храним входящие данные
begin
TS:=TStringList.Create;
TS.Delimiter:=' ';
TS.DelimitedText:=Wsocket1.ReceiveStr;
if TS[0]='JOIN' then //приходит команда с сервера
begin
if TS[3]='ник врага или ищешь в массиве с никами' then Socket.Sendline('ACTION 3 '+TS[1]);  // поиск по массиву и посадка
end;
TS.Free;   // Очищаем память стринглиста
end

var
Nick: String;
I: Integer;
begin
Nick := slistbox1.items[i];
for I := 0 to sListbox1.Count - 1 do
if slistbox1.items[i] = Nick then
begin
... ник в списке то     
end

if listbox1.Items.IndexOf(TS[1]) >-1 then if radiobutton9.Checked then send('KICK ' + TS[3]);-клан
if listbox1.Items.IndexOf(TS[2]) >-1 then if radiobutton9.Checked then send('KICK ' + TS[3]);-ник