problemas escaner de puertos

[kalisto]

Hola, estoy intentando hacer una aplicación que dado un rango de direcciones ip, y una lista de puertos nos diga los puertos abiertos de cada ip.

Para ello primero hago un ping (esta parte del programa me funciona bien) y si la la maquina de esa ip responde paso a escanear los puertos de la lista. Para escanear los puertos he utilizado una función posteada por seoane que es la siguiente:

Código Delphi [-]
 
function EstaAbierto(Host: string; Puerto: Integer): Boolean;
var
  WSAData: TWSADATA;
  Address: u_long;
  HostEnt: phostent;
  Addr: sockaddr_in;
  CSocket: Tsocket;
begin
  Result:= FALSE;
  if WSAStartup(MAKEWORD(1, 1), WSADATA) = 0 then
  begin
    Address:= inet_addr(Pchar(Host));
    if Address = INADDR_NONE then
    begin
      HostEnt:= gethostbyname(PChar(Host));
      if HostEnt <> nil then
        Address:= PInteger(HostEnt.h_addr_list^)^;
    end;
    if Address <> INADDR_NONE then
    begin
      CSocket:= socket(AF_INET, SOCK_STREAM, 0);
      if CSocket <> INVALID_SOCKET then
      begin
        Addr.sin_family:= AF_INET;
        Addr.sin_addr.S_addr:= Address;
        Addr.sin_port:= htons(Puerto);
        Result:= connect(CSocket, Addr, Sizeof(Addr)) <> SOCKET_ERROR;
        Closesocket(CSocket);
      end;
    end;
    WSACleanup;
  end;
end;

Cuando los puertos estan abiertos la función responde rapidamente pero cuando estan cerrados tarda al rededor de 21 segundos lo cual hace la función inutilizable para mis propositos.
Tambien lo he intentado mediante TidTcpClient, que se les puede fijar un timeOut, y me funciona bien con un solo Thread pero a medida que aumentamos el numero de threads, aumenta el numero de puertos que nos da como cerrados cuando en realidad estan abiertos.

¿Alguna idea?
Gracias.