Сканирование порта в сети

[VSCorp]

Здраствуйте!
Пишу чат для локалки.
Возникла проблема со сканированием порта в локальной сети.
Имеется 80 компьютеров. На 1-ом из них запущен сервер с портом 6666.
Как можно быстро (в течении нескольких секунд) найти этот комп?
Сканирую сеть так:

Клиент:

  IP := '62'; // мой IP
  for i := 2 to 254 do
    if i <> StrToInt(IP) then // не сканируем свой комп
      begin
        Client.RemotePort := '6666';
        Client.RemoteHost := '192.168.1.' + IntToStr(i);
        Timer3.Interval := 200;
        Timer3.Enabled :=true;
        Client.Open;
      end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
  Timer3.Enabled := false;
  if not Client.Connected then Client.Close;
end;

procedure TForm1.ClientConnect(Sender: TObject);
begin
  Client.Sendln(msg); // отправка ника
  Client.Close;
end;

[veniside]

Сообщение от VSCorp

Имеется 80 компьютеров. На 1-ом из них запущен сервер с портом 6666.
Как можно быстро (в течении нескольких секунд) найти этот комп?

По TCP никак. Точнее сложно, чтобы так быстро. По UDP броадкастом. Дело нескольких миллисекунд.