Передача данных через сеть

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
#define logg Memo1->Lines->Add(TimeToStr(Now())+"::  "+
 
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    ServerSocket1->Close() ;
    ClientSocket1->Close() ;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormPaint(TObject *Sender)
{
     if (CheckBox2->Checked)
 SetWindowPos(Form1->Handle, HWND_TOPMOST,0,0,0,0,SWP_NOMOVE | SWP_NOSIZE);
     else
 SetWindowPos(Form1->Handle, HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE | SWP_NOSIZE);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
     Close();
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
     Edit1->Visible = !CheckBox1->Checked ;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ClientSocket1->Host=Edit1->Text;
ClientSocket1->Address=Edit1->Text;
ServerSocket1->Active=true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
    Shape1->Brush->Color = clLime;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ServerSocket1ClientDisconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
    Shape1->Brush->Color = clNavy;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if(Edit3->Text=="Íèê")
{
ShowMessage("Ââåäèòå íèê!");
}
if(Edit2->Text=="")
{
ShowMessage("Ââåäèòå òåêñò ïîæàëóéñòà");
}
Memo1->Lines->Add(Edit3->Text+" - "+Edit2->Text);
if(ServerSocket1->Active==true)
{
Shape1->Brush->Color = clLime;
for(int i=0;i<ServerSocket1->Socket->ActiveConnections;i++)
{
ServerSocket1->Socket->Connections[i]->SendText(Edit3->Text+" - "+Edit2->Text);
}
}
if(ClientSocket1->Active==true)
{
ClientSocket1->Socket->SendText(Edit3->Text+"::"+Edit2->Text);
Shape1->Brush->Color = clLime;
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
Memo1->Lines->Add(Socket->ReceiveText());
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
Memo1->Lines->Add(Socket->ReceiveText());
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
ServerSocket1->Active=true;
Button1->Enabled=false;
Memo1->Lines->Add("Ñåðåâåð ñîçäàí!");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
      TCustomWinSocket *Socket)
{
Memo1->Lines->Add("Connected!");
}
//---------------------------------------------------------------------------