var
buf:array[0..1023] of char;
WSData:TWSAData;  
so:thandle; // дескриптор сокета
ca:sockaddr_in; // для настройки коннекта
begin
write('[*] WSAStartup...');
if WSAStartup($101, WSData)=-1 then // делаем инит сокетов
 begin
  write('ERROR');
  exit;
end;
writeln('OK');
write('[*] Create Socket...');
so:=socket(AF_INET, SOCK_STREAM, 0); // содаем сокет
if so=-1 then
 begin
  writeln('ERROR');
  exit;
 end;
writeln('OK');
ca.sin_family:=AF_INET;
ca.sin_port:=htons(80); // тут задаем порт
ca.sin_addr.s_addr:=inet_addr('127.0.0.1'); // тут задаем IP адрес. Доменные имена незя, нуна резолвить
write('[*] Connect to server...');
if connect(so,ca,sizeof(ca))=-1 then // коннектимся 
 begin // если нет коннекта
  closesocket(so); // закрываем сокет
  writeln('ERROR');
  exit;
end;
writeln('OK');
send(so,buf,sizeof(buf),0); // пишем данные
recv(so,buf,sizeof(buf),0); // читаем данные
closehandle(so); // закрываем сокет