Ich habe mal für diese zwecke TTcpClient (Internet) verwendet. RemoteHost, RemotePort - das was du testen willst. Active muss auf false sein. Jetzt muss man nur TcpClient.Open machen:
Delphi-Quellcode:
TC1.Open;
if TC1.Connected=true then begin
TC1.Disconnect;
...
...
...
end;