: void __fastcall TfrmDownload::btnOpenClick(TObject *Sender)
: {
:   cpComport1 = Open();    ==> cpComport1->Open();
:   cpComport1 = Close();   ==> cpComport1->Close()
:   /*if(cpComport1 = Connected)
:     cpComport1 = Close();
:   else
:     cpComport1 = Open();*/
: }
: //---------------------------------------------------------------------------
:
: void __fastcall TfrmDownload::btnSettingClick(TObject *Sender)
: {
:   cpComport1->ShowSetupDialog();   
: }
: //---------------------------------------------------------------------------
:
: void __fastcall TfrmDownload::btnSendClick(TObject *Sender)
: {
:   AnsiString Str;
:
:   Str = edt_data->Text;
:   //if (NewLine_CB->Checked)
:     Str = Str + "\r\n";
:   cpComport1->WriteStr(Str)
: }
: