SetCommState не работает

DCB dcb;
HANDLE hLpt =
CreateFile("COM2", GENERIC_READ | GENERIC_WRITE, 0, NULL, OPEN_EXISTING, 0, NULL);
 
 
//далее установим наши параметры
dcb.BaudRate = CBR_9600;
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;
 
SetCommState(hLpt, &dcb);;
  //запишем параметры в порт
CloseHandle(hLpt);

AnsiString console4="mode "+Form1->ComboBox2->Text+" baud=9600 stop=2 data=8 parity=n";
system(console4.c_str())

dcb=(DCB*)HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,sizeof(DCB));
dcb->DCBlength=sizeof(DCB);
 
 
COMport=CreateFile("COM1",GENERIC_READ|GENERIC_WRITE,0,NULL,OPEN_EXISTING,0,NULL);
   if(COMport==INVALID_HANDLE_VALUE) {
    Application->MessageBox("Unable to open COM Port","Error",MB_OK);
      HeapFree(GetProcessHeap(),0,dcb);
        return(0);
   }
   else{
   if (BuildCommDCB(L"baud=9600 parity=N data=8 stop=1",dcb)==0){
    Application->MessageBox("Unable to initialize CommDCB Structure.","Error",MB_OK);
      HeapFree(GetProcessHeap(),0,dcb);
        return(0);
    }
   dcb->fNull=true;
   ct.ReadIntervalTimeout=100;//100;
   ct.ReadTotalTimeoutMultiplier=35;
   ct.ReadTotalTimeoutConstant=50;
   ct.WriteTotalTimeoutMultiplier=0;
   ct.WriteTotalTimeoutConstant=0;
   SetCommTimeouts(COMport,&ct);
   SetCommState(COMport,dcb);

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit11.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm11 *Form11;
DCB portDcb;
COMMTIMEOUTS portTO;
HANDLE  f_port;
//---------------------------------------------------------------------------
__fastcall TForm11::TForm11(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm11::Button1Click(TObject *Sender)
{
    f_port = CreateFile("COM2",
        // вот здесь сраный капец, не забываем правильно переводить перменные. Типизированные языки такие типизированные
        GENERIC_READ | GENERIC_WRITE, 0, NULL, OPEN_EXISTING, 0, NULL);
 
    if (f_port == INVALID_HANDLE_VALUE) {
        return;
    }
 
    if (! GetCommState (f_port, &portDcb))
    {
        CloseHandle (f_port);
        f_port = INVALID_HANDLE_VALUE;
        return;
    }
 
    portDcb.BaudRate = 9600; //устанавливаем скорость
    portDcb.fBinary = true;
    portDcb.fParity = false; //проверка четности
    portDcb.Parity = NOPARITY;// Установка типа четности
    portDcb.ByteSize = 8;
    portDcb.StopBits = ONESTOPBIT;   // 2 бита
    portDcb.fDtrControl = DTR_CONTROL_DISABLE;
    portDcb.fRtsControl = RTS_CONTROL_DISABLE;
 
    if (! SetCommState (f_port, &portDcb))
    {
        CloseHandle (f_port);
        f_port = INVALID_HANDLE_VALUE;
        return;
    }
    if (! SetCommTimeouts (f_port, &portTO))
    {
        CloseHandle (f_port);
        f_port = INVALID_HANDLE_VALUE;
        return;
    }
    CloseHandle(f_port);
}

ONESTOPBIT;   // 2 бита