function WSACreateEvent:THandle;stdcall;
external 'ws2_32.dll' name 'WSACreateEvent';

Var
Buf:Array [0..0] of Char;
WSAData:TWSAData;
Socket1Addr:TSockAddrIn;
Socket1:TSocket;
Events:THandle;
Host,HTMLText,HTMLTextTemp,Linc,FileName:String;
LengthReceiveData,I,J:Integer;
ABC:Array [0..25] of String;

procedure ConnectToServer;
Begin
Host:='77.88.21.3';
WSAStartUp(MakeWord(2,0),WSAData);
Socket1:=Socket(AF_Inet,Sock_Stream,IPProto_IP);
Socket1Addr.Sin_Family:=AF_Inet;
Socket1Addr.Sin_Port:=Htons(80);
Socket1Addr.Sin_Addr.S_Addr:=Inet_Addr(Pchar(Host));
Events:=WSACreateEvent;
Connect(Socket1,Socket1Addr, SizeOf(Socket1Addr));
End;

procedure ReadData;
Begin
HTMLText:='';
LengthReceiveData:=Recv(Socket1,Buf,SizeOf(Buf),0);
HTMLText:=HTMLText+Buf;
While LengthReceiveData>0 do begin
For I:=0 to High(Buf) do Buf[I]:=' ';
LengthReceiveData:=Recv(Socket1,Buf,SizeOf(Buf),0);
HTMLText:=HTMLText+Buf;
If LengthReceiveData=0 then begin CloseSocket(Socket1);Exit;End;
End;
CloseSocket(Socket1);
End;

procedure SendData(SendLinc: String);
Var
SendSock:Integer;
Begin
SendLinc:='GET / HTTP/1.1'+#13+#10+#13+#10;
For SendSock:=1 to Length(SendLinc) do if Send(Socket1,SendLinc[SendSock],1,0)=SOCKET_ERROR then exit;
End;

begin
ConnectToServer;
SendData('');
ReadData;
ShowMessage(HTMLText);
end.