[icheezy]

Привествую всех.

Делаю скрипты для бота.
Есть код, который определят всех вокруг игроков в онлайн игре и пишет им сообщение. Всё получилось,

Код:

var i, n : integer;
begin
  while True do begin
    n := 0;
    for i := 0 to charlist.Count do begin
      if charlist.Items(i).Title = '' then begin
      Inc(n);
      engine.say('Привет',2,charlist.Items(i).Name);
      delay(2000);
      end;
    end;
  end;
end.

Но он пишет игрокам по очереди и согласитесь если игроков 5000, на это уйдёт большой ресурс и большое количество времени.

Вопрос: Как сделать чтобы отправлял всем.
Только если можно решение сразу, а то я изучаю Delphi неделю всего.