Аналог net send на C++

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <SysUtils.hpp>
#pragma package(smart_init)
#pragma resource "*.dfm"
#define ListeningMsg L
TForm1 *Form1;

AnsiString Server;
bool IsServer = False;


__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}

//Connect
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (ClientSocket1->Active)
{
ClientSocket1->Active = false;
ClientSocket2->Active = false;
}
if (InputQuery("&#194;&#226;&#229;&#228;&#232;&#242;&#229; &#232;&#236;&#255; &#232;&#235;&#232; &#232;&#239;", "&#224;&#228;&#240;&#229;&#241;:", Server))
{
if (Server.Length() > 0)
{
ClientSocket1->Host = Server;
ClientSocket1->Active = true;
ClientSocket2->Host = Server;
ClientSocket2->Active = true;
FileListen1->Checked = false;
}
}
}
void __fastcall TForm1::ServerSocket1Listen(TObject *Sender,
      TCustomWinSocket *Socket)
{
FileListen1->Checked = !FileListen1->Checked;
if (FileListen1->Checked)
{
ClientSocket1->Active = false;
ServerSocket1->Active = true;
ClientSocket2->Active = false;
ServerSocket2->Active = true;
StatusBar1->SimpleText = ListeningMsg;
}
else
{
if (ServerSocket1->Active)
{
ServerSocket1->Active = false; ServerSocket2->Active = false; } StatusBar1->SimpleText = "";
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
FileListen1Click(NULL);
}