Com Delphi 7

Olá amigos,

Mais uma vez recorro a vcs para solucionar uma dúvida.

Utilizo o TCPClient para verificar se um dispositivo está disponível na rede, deixo a rotina dentro de um Timer, para executar de tempos em tempos, utilizo o seguinte código.

TCPClient.RemoteHost := '192.168.0.28';TCPClient.RemotePort := '8008';Application.ProcessMessages;if(TCPClient.Connect) then Begin showMessage('Conectado'); TCPClient.Disconnect; Endelse showMessage('Não Conectado');

Se o dispositivo estiver conectado maravilha, o problema ocorre quando está desconectado, provavelmente o TCPClient tenta encontrar o endereço e não consegue, isso trava meu programa por uns 6 segundos, tentei utilizar o Application.ProcessMessages mas não resolveu.

Agora a pergunta, teria como diminuir esse tempo de espera do TCPClient ? Ou algum modo mais eficaz para verificar conectividade?

Abraços amigos, obrigado pela atenção.

Spider