[Celeron]

Обьект TClientSocket, но теорию можешь взять от сюда.

Код:

      ClientSocket:=TClientSocket.Create(nil);
      ClientSocket.Host:=Host;
      ClientSocket.Port:=Port;
      ClientSocket.Open;
      TimeNow:=Time;
     while (ClientSocket.Active=false) and (Time<TimeNow+10) do
      Begin
      end;
        if ClientSocket.Active=false then
          ClientSocket.Close;

Admin: Пользуемся тегами!