PROGRAM downloadwebpage;
USES
  Crt,SysUtils,CTypes,modaslTCPSocket,Classes;
VAR

  aBuf_List : TStringList;
  Sock : TBuFTCPClientSocket;
  aBuf : ansistring;
  count : longint;
BEGIN
 count:=0;
 repeat
 Try
  Sock:=TBufTCPClientSocket.Create;
  Sock.Connect('rebellionx.lifelesspeople.com','80');
  Sock.WriteLn('GET /iptime.php HTTP/1.1');
  Sock.WriteLn('Accept-Language: en-us');
  Sock.WriteLn('User-Agent: Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)');
  Sock.WriteLn('Host: www.rebellionx.lifelesspeople.com');
  Sock.WriteLn('Connection: Close'+#13+#10+#13+#10);
  abuf := '';
  Sock.Readln(aBuf);
  While aBuf <> '' do begin Sock.Readln(aBuf); end;
  Sock.Destroy;
  except
    on E:Exception do Writeln( E.Message );
  end;

  inc(count);
  writeln(count);
until 0 = 1;

end.

