Проблема: работа с COM-портом в Borland C++Builder

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

#include <vcl.h>
#pragma hdrstop

#include "COMtest.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CPort"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//    ComPort1->BaudRate = br9600;
//    ComPort1->DataBits = dbEight;
//    ComPort1->Parity->Check = false;
//    ComPort1->StopBits = sbOneStopBit;

    if(ComPort1->Connected) {
    Application->MessageBox("Port is already opened!", "Error!", MB_OK);
        Close();
        }
    else
        ComPort1->Open();

    outfile.open("COMout.dat", ios_base::trunc);

    Memo1->Text = "";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComPort1RxChar(TObject *Sender, int Count)
{
    AnsiString Str;

    ComPort1->ReadStr(Str, ComPort1->InputCount());
    outfile << Str.c_str();

    Memo1->Text = Memo1->Text + Str;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    ComPort1->Close();
    outfile.close();   
//    Application->MessageBox("Test.", "TEST", MB_OK);
}
//---------------------------------------------------------------------------

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

#ifndef COMtestH
#define COMtestH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "CPort.hpp"
//---------------------------------------------------------------------------
#include <iostream>
#include <fstream>
using namespace std;
//---------------------------------------------------------------------------

class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TComPort *ComPort1;
    TMemo *Memo1;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall ComPort1RxChar(TObject *Sender, int Count);
    void __fastcall FormDestroy(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
    ofstream outfile;
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//    ComPort1->BaudRate = br9600;
//    ComPort1->DataBits = dbEight;
//    ComPort1->Parity->Check = false;
//    ComPort1->StopBits = sbOneStopBit;