Работа с COM портом

viOpenDefaultRM(&defaultRM1);
  status = viOpen(defaultRM1, "GPIB::1::INSTR", VI_NULL,VI_NULL, &vi1);

hFile = CreateFile("COM4", GENERIC_READ|GENERIC_WRITE, 0, NULL,
        OPEN_EXISTING, 0,NULL);
 
if(hFile==INVALID_HANDLE_VALUE)
{
    ShowMessage("Не удалось открыть порт!");
}
else
{
    ShowMessage("Порт успешно открыт");
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
ULONG ul=0;
 
    if(GetCommModemStatus(hFile, &ul)!=0)
    {
        if(ul == 0x10)
        {
            CTS->Text = "1";
            DSR->Text = "0";
        }
 
        if(ul == 0x20)
        {
        CTS->Text = "0";
        DSR->Text = "1";
        }
 
        if(ul == 0x30)
        {
        CTS->Text = "1";
        DSR->Text  = "1";
        }
 
        if(ul == 0x00)
        {
        CTS->Text = "0";
        DSR->Text = "0";
        }
 
 
    }
}

AnsiString st="ПРИВЕТ МИР";
for (int i = 0; i < st.Length()+1 ; i++) {
    Buf[i]=st.c_str()[i];
}
 
lenbuf  =st.Length()+1;
Ret=WriteFile(hFile,&Buf,255,&lenbuf,NULL);
 
 
purgeBuf();
Ret=ReadFile(hFile,&Buf,255,&lenbuf,NULL);
leRead->Text=(AnsiString)Buf;

CloseHandle(hFile);