Перебор компьютеров сети. ТTсрClient и потоки

[nikol_]

Здравствуйте.
Надо перебрать все компьютеры в сети и подключиться к ним по определенному порту.

Перебор находится в потоках. Сколько адресов, столько и потоков
Описание потока:

TCheckIP = class(tthread)
public
  Check_ip:string;
private
  procedure Answer;
protected
  procedure execute; override;
end;

procedure TCheckIP.Answer;
Begin
  Form1.Memo1.Lines.Append(Check_ip);
  Form1.Label1.Caption:=IntToStr(Form1.Memo1.Lines.Count);
end;

procedure TCheckIP.execute;
var TcpClient: TTcpClient;
begin
  TcpClient:=TTcpClient.Create(nil);
  try
    TcpClient.RemoteHost:=Check_ip;
    TcpClient.RemotePort:=PORT;
    TcpClient.BlockMode:=bmBlocking;

    if TcpClient.Connect then
      Synchronize(Answer);

  finally
    TcpClient.Disconnect;
    TcpClient.Free;
    Terminate;
  end;
end;

Запуск потоков:

procedure FindServer;
var addr:string;
    i: Integer;
    mIp: array[1..254] of TCheckIP;
begin
  addr:=Form1.TCPServer1.LocalHostAddr;
  addr:=AnsiReverseString(addr);
  delete(addr,1,Pos('.',addr)-1);
  addr:=AnsiReverseString(addr);
  
  for i:=1 to 254 do
    begin
      mIp[i]:=TCheckIP.Create(true);
      mIp[i].freeonterminate:=true;
      mIp[i].priority:=tpHigher;
      mIp[i].Check_ip:=addr+IntToStr(i);
      mIp[i].resume;
    end;
end;

Сервера находятся, проблем нет. Но на это, даже при использовании потоков, уходит 3-5 минут. Долго.
Что я делаю не так?

P.S.: Использовать можно только TTcpClient, TTcpServer.
Спасибо за внимание к вопросу.

[veniside]

254 компа? Если из них хотя бы 10% выключены (или сервер не запущен), то 5 минут это ещё хорошо.

> Использовать можно только TTcpClient, TTcpServer.

ну и глупо.