Enlace Puertos C++

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "proyecto.h"//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CPort"
#pragma resource "*.dfm"
TForm1 *Form1;//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{

ComPort1->BaudRate = br9600; // velocidad 9600
ComPort1->DataBits = dbSeven; // bits de datosComPort1->Parity->Bits = prOdd; // paridad impar
ComPort1->StopBits = sbTwoStopBits; // dos bits de stop
ComPort1->ShowSetupDialog(); // con esto sale un dialogo y elegimos el com que queremos

}//---------------------------------------------------------------------------

void __fastcall TForm1::Salir1Click(TObject *Sender)
{
Application->Terminate();ComPort1->Connected=false;

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Activar1Click(TObject *Sender)
{
ComPort1->Open(); // intentar abrir el puertoif (ComPort1->Connected == false)
{
ShowMessage("Problemas abriendo el puerto serie");
}
else
StatusBar1->Panels->Items[2]->Text="Com Port Conectado";ServerSocket1->Active=false;
StatusBar1->Panels->Items[0]->Text="Sin conexión";
if(Servi.Length()>0)
{
ClientSocket1->Host=Servi;
ClientSocket1->Active=true;StatusBar1->Panels->Items[0]->Text="Conectado como Cliente";
StatusBar1->Panels->Items[1]->Text="Cliente conectado con: " + Servi;
}
else
{
StatusBar1->Panels->Items[1]->Text="Sindirección IP";
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Activar2Click(TObject *Sender)
{
ClientSocket1->Active=false;...