Передача данных из редактора на порт USB

//-----------------------Передача данных через Com порт---------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 //HANDLE port;
 DCB dcb;
 port=CreateFileA("COM9", GENERIC_READ | GENERIC_WRITE, 0, NULL, OPEN_EXISTING, 0, NULL ); // здесь ошибку выдает [bcc32 Error] : E2451 Undefined symbol 'port'
  Full parser context
    qxmach.cpp(429): parsing: void _fastcall TForm1::Button1Click(TObject *)
    if(port==INVALID_HANDLE_VALUE) {
RichEdit1->Lines->Add("Не возможно открыть последовательный порт");
 
   }
  // CloseHandle(port);
 
  //далее установим наши параметры
dcb.BaudRate = CBR_19200;
dcb.fBinary = TRUE;
dcb.fOutxCtsFlow = FALSE;
dcb.fOutxDsrFlow = FALSE;
dcb.fDtrControl = DTR_CONTROL_HANDSHAKE;
dcb.fDsrSensitivity = FALSE;
dcb.fNull = FALSE;
dcb.fRtsControl = RTS_CONTROL_DISABLE;
dcb.fAbortOnError = FALSE;
dcb.ByteSize = 8;
dcb.Parity = NOPARITY;
dcb.StopBits = 1;
dcb.XonLim=2048;
dcb.XoffLim=512;
dcb.StopBits=ONESTOPBIT;
 
SetCommState(port, &dcb);  //запишем параметры в порт
 
COMMTIMEOUTS CommTimeOuts;
GetCommTimeouts(port, &CommTimeOuts);
CommTimeOuts.ReadIntervalTimeout= 100;
CommTimeOuts.ReadTotalTimeoutMultiplier = 1;
CommTimeOuts.ReadTotalTimeoutConstant = 5;
CommTimeOuts.WriteTotalTimeoutMultiplier = 1;
CommTimeOuts.WriteTotalTimeoutConstant = 100;
SetCommTimeouts(port, &CommTimeOuts);
 
RichEdit1->Lines->Add("  Порт COM9 открыт успешно ");
RichEdit1->Lines->Add(" скорость 19200");
 
 
 }
//---------------------------------------------------------------------------
 
void __fastcall TForm1::SpeedButton14Click(TObject *Sender)
{
CloseHandle(port); // здесь туже ошибку выдает
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
 char buffer[1];
 memset(buffer,0,sizeof(buffer));
 buffer[0] |=(1<<0);
 //strcpy(buffer,"SAVE TO COM1");
 DWORD nb;
 OVERLAPPED ov;
 WriteFile(port,buffer,sizeof(buffer),&nb,&ov); // здесь туже ошибку выдает
}
//---------------------------------------------------------------------------

 strcpy(bufwr,Form1->RichEdit1->Text.c_str()); //занести в программный передающий буфер строку из RichEdit1

WriteFile(port,RichEdit1->Text.c_str(),RichEdit1->Text.Length(),&nb,&ov);