Только два действия с одной строчкой в Lisbox

[mitiay]

Как отправить только два сообщения каждому из Listbox?

    begin
 {Поиск клиента с нужным ником и отправка сообщения только ему}
 if (ServerSocket1.Socket.ActiveConnections > 0) then
  for i:= 0 to ServerSocket1.Socket.ActiveConnections - 1 do
   if PPacket(ServerSocket1.Socket.Connections[i].Data)^.Nick = lstClients.Items.Strings[p] then
    begin
     ServerSocket1.Socket.Connections[i].SendText(edtText.Text+s);
     break;
    end;
 memo1.Lines.Add('[' + PPacket(ServerSocket1.Socket.Connections[i].Data)^.Nick + '] ->' + edtText.Text+s);
 edtText.Clear;

[mitiay]

Еще актуально

[Stilet]

Мдя... Непонятно что тебе нужно... Телепатирую: Опиши переменку типа integer. Перед циклом ей присвой двойку. А после отправки напиши

if переменка=0 then break else dec(переменка);