Подключение устройства по COM порту RS232

void __fastcall TForm1::out_port_GEN (int a)
{
DCB          *dcb;
COMMTIMEOUTS  ct;
LPVOID lpMsgBuf;
char  buf_out;
String A;
if(!a)
{
 
 dcb=(DCB*)HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(DCB));
 dcb->DCBlength=sizeof(DCB);
 BuildCommDCB(L"baud=9600 parity=N data=8 stop=1",dcb);
 dcb->fDtrControl=DTR_CONTROL_ENABLE;
 dcb->fRtsControl=RTS_CONTROL_DISABLE;
ct.ReadIntervalTimeout=1000;
 ct.ReadTotalTimeoutMultiplier=ct.ReadTotalTimeoutConstant=20;
 ct.WriteTotalTimeoutMultiplier=ct.WriteTotalTimeoutConstant=10;
 port=CreateFile(L"\\\\.\\COM25",GENERIC_READ|GENERIC_WRITE,0,NULL,OPEN_EXISTING,0,NULL);
 FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM,
                NULL,GetLastError(),MAKELANGID(LANG_NEUTRAL,SUBLANG_DEFAULT),
                (LPTSTR) &lpMsgBuf,0,NULL
               );
 A=(LPTSTR)lpMsgBuf; LocalFree(lpMsgBuf);
 if(port==INVALID_HANDLE_VALUE)
  {
   ShowMessage(" Невозможно открыть последовательный порт. "+A);
   CloseHandle(port);  port=0;
  } else{ SetCommState(port,dcb); SetCommTimeouts(port,&ct);
          PurgeComm(port,PURGE_TXCLEAR|PURGE_RXCLEAR);}
 HeapFree(GetProcessHeap(),0,dcb);
}
else {
       PurgeComm(port,PURGE_TXCLEAR|PURGE_RXCLEAR);
       CloseHandle(port);  port=0;
     }
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String s,Result;
if(!port) out_port_GEN(0);
if(port){
            Label1->Caption="открыт COM порт";//здесь я посылаю на физ ус-во команды
            bufwr[0]= 'M';
            WriteFile(port, bufwr, strlen(bufwr), &temp, NULL);
            Sleep(500);
            bufwr[0]='P';
            WriteFile(port, bufwr, strlen(bufwr), &temp, NULL);
            Sleep(500);
            bufwr[0]='?';
            WriteFile(port, bufwr, strlen(bufwr), &temp, NULL);
            Sleep(2000);
            Result=' ';
            //ShowMessage("Ошибка чтения!");
            if (!ReadFile(port,bufrd,strlen(bufrd),&temp,NULL))
                {
                ShowMessage("Ошибка чтения!");
                 exit;
                } else
                {
                    ReadFile(port,bufrd,strlen(bufrd),&temp,NULL);//сюда у меня приходит программа
//но в итоге temp равен 1, и результата никакого. 
                   ShowMessage(temp);
                    for (int i = 6; temp-1; i++)
                    {
                        s=s +bufrd[i];
                        Result=s[i];
                        Memo1->Lines->Add(Result);
                    }
 
                }
 
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if(port) out_port_GEN(1);
if(!port) Label1->Caption="COM порт закрыт";
}