WSAStartup(MAKEWORD(2,0), wsaData);

while not terminated do
  begin        
        sleep(60000);
        s:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
        FillChar(addr, SizeOf(sockaddr_in), 0);
        addr.sin_family:=AF_Inet;
        addr.sin_addr.S_addr:=inet_addr('111.22.33.44');
        addr.sin_port:=htons(80);
        Connect(S,addr,SizeOf(TSockAddr));
        sendbuff := 
           'GET / HTTP/1.1'+ #13#10 +
           'Host: 111.22.33.44'+ #13#10#13#10;
        send(s, sendbuff[1] , Length(sendbuff), 0);
        closesocket(s);
  end;

WSACleanup;