procedure HTTPGet(URL,Query:String);   //HTTPGet('site.ru','/index.php?id=123');
var
   WSAData1: TWSAData;
   SockAddr1:TSockAddr;
   Socket1: TSocket;
   Buffer1:string;
   i,d:integer;

begin
//Если при вызове, функция выдала значение не равное "0", то выходим из функции.
   if WSAStartup(MAKEWORD(2,2), WSAData1)<>0 then
     Exit;
   Socket1:=Socket(AF_INET,SOCK_STREAM,0); // Создаём Socket
   if Socket1=INVALID_SOCKET then
     Exit; // Если при создании возникла ошибка, то выходим из функции.
   SockAddr1.sin_family:=AF_INET; // Указываем спецификацию типа "AF_INET" для TCP/IP
   SockAddr1.sin_addr:=pinaddr(gethostbyname(PChar(URL))^.h_addr^)^; // Тута мы вводим ссылку, получаем IP адрес сайта.
   SockAddr1.sin_port:=htons(80); //Ну порт с которым всегда работаем "80"
   if Connect(Socket1,SockAddr1,SizeOf(SockAddr1))<>0 then
     exit; //Если при подключении (не отправке), функция возвращает значение не равное "0", то выходим из функции.

   Buffer1:='GET '+query+' HTTP/1.1'#13#10+
            'Host: '+URL+#13#10+
            'Connection: close'#13#10+
            #13#10;
   // Выше мы составили Header

   send(Socket1,Buffer1[1],Length(Buffer1),0); //без возвращаемого значения
end;