program connect;

uses
  sysutils, winsock;

var  D:WSAData;
     S:TSocket;
     A:TSockAddr;
begin
if WSAStartup($101,D)<>0 then halt;
{Определяем тип семейства сокетов, и IP адрес}
A.sin_family:=AF_INET;
A.sin_addr.S_addr:=inet_addr('127.0.0.1');
{ Создаем сокет }
  S:=socket(AF_INET,SOCK_STREAM,0);
  { Если возвращено значение INVALID_SOCKET, выводим сообщение об ошибке }
  if S=INVALID_SOCKET then halt;
  { Определяем порт (задается константой) }
  A.sin_port:=htons(80);
  { Пытаемся подконнектиться, если удачно - выводим сообщение, что порт открыт }
  if connect(S,A,sizeof(A))=0 then ;{ВОТ ТУТ ПОДСОЕДИНИЛИСЬ ИНАЧЕ НЕТ}
  closesocket(S);
{ Завершаем работу с сокетами }
WSACleanup;
end.