void __fastcall TForm1::FormShow(TObject *Sender) {
 WSAData ws;
 WSAStartup(MAKEWORD(2, 2), &ws);
}
// ---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action) {
 WSACleanup();
}
// ---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender) {
 TSocket s;
 s = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
 hostent *h;
 char* ip;
 sockaddr_in sa;
 h = gethostbyname("xxx.ru");
 ip = inet_ntoa(*(struct in_addr*)*h->h_addr_list);
 sa.sin_family = AF_INET;
 sa.sin_addr.s_addr = inet_addr(ip);
 sa.sin_port = htons(80);
 int i;
 i = connect(s, (SOCKADDR*)&sa, sizeof(sa)); // i=0

 char* o = "1";
 i = setsockopt(s, IPPROTO_TCP, TCP_NODELAY, o, sizeof(o)); // i=0

 char *buf = "test data";
 i = send(s, buf, (int)strlen(buf), 0); // i=(int)strlen(buf)
 closesocket(s);
}